P-value correction: Difference between revisions
Content deleted Content added
m →{{header|SAS}}: +output |
SqrtNegInf (talk | contribs) m →{{header|Perl 6}}: enclosing elements eliminated |
||
Line 3,964:
=={{header|Perl 6}}==
{{works with|Rakudo|
<lang perl6>########################### Helper subs ###########################
Line 4,027:
my @U = z - $i ^..^ z; # upper indices
my $q = @s[@U]»[0].map( { $_ * $i / (2 + $++) } ).min;
@q[@L] = @s[@L]»[0].map: {
@pa = ^z .map: {
}
@pa[@s[*;1].map( {[$_, $++]} ).sort( *.[0] )»[1]]
|