Selection bias in clinical sciences: Difference between revisions
Selection bias in clinical sciences (view source)
Revision as of 01:04, 2 December 2022
, 1 year ago→{{header|Perl}}: use 'sum0' instead
SqrtNegInf (talk | contribs) (Added Perl) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: use 'sum0' instead) |
||
Line 203:
{{trans|Raku}}
<syntaxhighlight lang="perl" line>use v5.036;
use List::AllUtils <
use enum qw<False True UNTREATED REGULAR IRREGULAR>;
use constant DOSE_FOR_REGULAR => 100;
Line 243:
}
my $H =
12/($n*($n+1)) * $H - 3 * ($n + 1)
}
Line 258:
@sirr = @hadcovid[ indexes { $_ == IRREGULAR } @category];
@sreg = @hadcovid[ indexes { $_ == REGULAR } @category];
( $unt, $irr, $reg) = (scalar(@sunt), scalar(@sirr), scalar(@sreg)
($hunt,$hirr,$hreg) = (
}
| |||