- or download this
for (@_) { @differences = (@differences, (($_-$mean)*($_-$mean))); } - or download this
foreach ( @_ ) {
push @differences, $_ - $mean;
}
- or download this
my $standard = 0;
for (@differences) { $standard = $standard + $_; }
$standard = sqrt($standard/$sample_size);
return $standard;
- or download this
my $sum_diff = 0;
map { $sum_diff += $_ } @differences;
return sqrt($sum_diff / $sample_size);