Changeset 9286 for trunk/ippScripts/scripts/detrend_reject_imfile.pl

Timestamp:

Oct 4, 2006, 6:40:07 PM (20 years ago)

Author:

Paul Price

Message:

Allowing manual rejection.

File:

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

trunk/ippScripts/scripts/detrend_reject_imfile.pl

@@ -19 +19 @@
 use Pod::Usage qw( pod2usage );
 
-my ($det_id, $iter, $exp_tag, $det_type, $no_update);
+my ($det_id, $iter, $exp_tag, $det_type, $no_update, $reject);
 GetOptions(
     'det_id|d=s'        => \$det_id,
     'iteration=s'       => \$iter,
-    'exp_tag|e=s'        => \$exp_tag,
+    'exp_tag|e=s'       => \$exp_tag,
     'det_type|t=s'      => \$det_type,
-    'no-update'         => \$no_update
+    'no-update'         => \$no_update,
+    'reject'            => \$reject
 ) or pod2usage( 2 );
 
@@ -154 +155 @@
 
 # Reject based on the individual stats
-my $reject = 0;                 # Rejection flag
 die "Number of means and number of stdevs differ!\n" if scalar @means != scalar @stdevs;
 for (my $i = 0; $i < scalar @means; $i++) {