|
%I #9 Oct 10 2017 22:44:42
%S 0,1,3,5,7,9,12,15,19,23,27,32,37,43,49,55,62,69,76,84,92,101,110,120,
%T 130,140,151,162,173,185,198,211,224,238,252,266,281,296,312,328,345,
%U 362,379,397,416,434,454,473,493,514,535,556,578,600,623,646,669
%N Critical values of Wilcoxon T test at a 1% level of significance (one-tail test).
%H Peter Mitic, <a href="http://www.mathematica-journal.com/issue/v6i3/article/mitic/contents/63mitic.pdf">Critical Values for the Wilcoxon Signed rank Statistic</a>
%H Eric Weisstein's MathWorld, <a href="http://mathworld.wolfram.com/WilcoxonSignedRankTest.html">Wilcoxon Signed Rank Test</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Wilcoxon_signed-rank_test">Wilcoxon signed-rank test</a>
%F G.f. for partitions limited to sample size is product_{r=1..s} (1 + x^r).
%t g[x_, 1] := x + 1; g[x_, s_] := g[x, s] = (x^s + 1)*g[x, s - 1]; WilcoxonT[s_, p_] := Module[{m = (2^s*p)/100, cum = Accumulate[CoefficientList[g[x, s], x]], i = 0}, Scan[If[# > m, Return[i - 1], i++] & , cum]]; Table[WilcoxonT[s, 1], {s, 7, 100}] (* coded after Peter Mitic *)
%Y Cf. A226329 (5%), A226330 (2.5%), A226332 (0.5%).
%K nonn
%O 7,3
%A _Jean-François Alcover_, Jun 04 2013
|
