|
@@ -317,7 +317,7 @@ sub statstr {
|
|
my $data = $_[0];
|
|
my $data = $_[0];
|
|
if (defined $data->[1]) {
|
|
if (defined $data->[1]) {
|
|
my $mean = $data->[0];
|
|
my $mean = $data->[0];
|
|
- my $stddev = sqrt($data->[1]);
|
|
+ my $stddev = $data->[1] > 0 ? sqrt($data->[1]) : 0;
|
|
return "$mean ± $stddev";
|
|
return "$mean ± $stddev";
|
|
} elsif (defined $data->[0]) {
|
|
} elsif (defined $data->[0]) {
|
|
return $data->[0];
|
|
return $data->[0];
|