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: | Line 3,964: | ||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
{{works with|Rakudo| |
{{works with|Rakudo|2019.03.1}} |
||
<lang perl6>########################### Helper subs ########################### |
<lang perl6>########################### Helper subs ########################### |
||
Line 4,027: | Line 4,027: | ||
my @U = z - $i ^..^ z; # upper indices |
my @U = z - $i ^..^ z; # upper indices |
||
my $q = @s[@U]»[0].map( { $_ * $i / (2 + $++) } ).min; |
my $q = @s[@U]»[0].map( { $_ * $i / (2 + $++) } ).min; |
||
@q[@L] = @s[@L]»[0].map: { |
@q[@L] = @s[@L]»[0].map: { min $_ * $i, $q, @s[*-1][0] }; |
||
@pa = ^z .map: { |
@pa = ^z .map: { max @pa[$_], @q[$_] } |
||
} |
} |
||
@pa[@s[*;1].map( {[$_, $++]} ).sort( *.[0] )»[1]] |
@pa[@s[*;1].map( {[$_, $++]} ).sort( *.[0] )»[1]] |