Changeset 9521 for trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm

Timestamp:

Oct 12, 2006, 1:37:40 PM (20 years ago)

Author:

Paul Price

Message:

Fixing definition of statistics: stdev and mean_stdev.

File:

• trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm (modified) (3 diffs)

trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm

@@ -1 +1 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Stats.pm,v 1.10 2006-09-06 03:37:53 jhoblitt Exp $
+# $Id: Stats.pm,v 1.11 2006-10-12 23:37:40 price Exp $
 
 package PS::IPP::Metadata::Stats;
@@ -103 +103 @@
         # XXX the stddev of a set of 1, appears to be a statistics undefined
         # value, however that doesn't do us much go so I'm changing undef to 0
-        $self->bg_stdev($meanStats->standard_deviation() || 0);
+        $self->bg_mean_stdev($meanStats->standard_deviation() || 0);
     } else {
         $self->bg_mean(undef);
@@ -110 +110 @@
     if (scalar @{$self->{bg_stdev_data}} > 0) {
         my $stdevStats = Statistics::Descriptive::Sparse->new(); # Statistics for standard deviation
-        $stdevStats->add_data(@{$self->{bg_stdev_data}});
-        $self->bg_mean_stdev($stdevStats->mean());
+        my @variances;
+        foreach my $number (@{$self->{bg_stdev_data}}) {
+            push @variances, $number**2;
+        }
+        $stdevStats->add_data(@variances);
+        $self->bg_mean_stdev( sqrt( $stdevStats->mean() ) );
     } else {
         $self->bg_mean_stdev(undef);