Changeset 9447

Timestamp:

Oct 9, 2006, 4:50:36 PM (20 years ago)

Author:

eugene

Message:

calculating the root-mean-square of the background stdevs

File:

• trunk/ippScripts/scripts/detrend_reject_imfile.pl (modified) (2 diffs)

trunk/ippScripts/scripts/detrend_reject_imfile.pl

@@ -122 +122 @@
     print $list2File File::Spec->rel2abs( $file->{b2_uri}, $ipprc->workdir() ) . "\n";
     push @means, $file->{bg};
-    push @stdevs, $file->{bg_stdev};
+    ## calculate the root-mean-square of the bd_stdevs
+    push @stdevs, $file->{bg_stdev}*$file->{bg_stdev};
 }
 close $list1File;
@@ -192 +193 @@
     $stdev = 0;
 }
-my $meanStdev = $stdevStats->mean(); # Mean of the sample of stdevs
+my $meanStdev = sqrt($stdevStats->mean()); # Root-Mean-Square of the sample of stdevs
 if (defined REJECT_SAMPLE_MEAN->{$det_type} and
     $stdev != 0 and