login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A226331 Critical values of Wilcoxon T test at a 1% level of significance (one-tail test). 3

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 20 07:57 EDT 2024. Contains 373512 sequences. (Running on oeis4.)