Selection bias in clinical sciences: Difference between revisions

m
→‎{{header|Raku}}: insignificant changes
(added Raku programming solution)
m (→‎{{header|Raku}}: insignificant changes)
Line 496:
for @sets.kv -> \i,@set { for @set -> $b { @sr[i] += $b ?? $art !! $arf } }
 
my $H = [+] gather for @sr.kv.map: -> \i,\s { take s*s/@sets[i].elems }
return 12/($n*($n+1)) * $H - 3 * ($n + 1)
}
Line 510:
@sirr = @hadcovid[ @category.grep: IRREGULAR,:k ];
@sreg = @hadcovid[ @category.grep: REGULAR, :k ];
($unt,$hunt,$irr,$hirr,$reg,$hreg) = (@sunt,@sirr,@sreg).map: *{|(.elems;,.sum)}
($hunt,$hirr,$hreg) = (@sunt,@sirr,@sreg).map: *.sum;
}
if day %% $interval {
354

edits