Changeset 14067 for trunk/ippScripts/scripts/detrend_norm_calc.pl

Timestamp:

Jul 8, 2007, 10:33:25 AM (19 years ago)

Author:

eugene

Message:

exp_id to exp_tag

File:

• trunk/ippScripts/scripts/detrend_norm_calc.pl (modified) (1 diff)

trunk/ippScripts/scripts/detrend_norm_calc.pl

@@ -114 +114 @@
     my %matrix; # Matrix of statistics as a function of exposures and classes
     foreach my $file (@files) {
-        my $exp_tag = $file->{'exp_tag'}; # Exposure ID
+        my $exp_id = $file->{'exp_id'}; # Exposure ID
         my $class_id = $file->{'class_id'}; # Class ID
         my $stat = $file->{STATISTIC()}; # Statistic of interest
         
         # Create matrix elements
-        $matrix{$exp_tag} = {} if not defined $matrix{$exp_tag};
-        $matrix{$exp_tag}->{$class_id} = $stat;
+        $matrix{$exp_id} = {} if not defined $matrix{$exp_id};
+        $matrix{$exp_id}->{$class_id} = $stat;
     }
     
     # Generate the input for ppNormCalc
     my $normData;                       # Normalisation data
-    foreach my $exp_tag (keys %matrix) {
-        $normData .= "$exp_tag\tMETADATA\n";
-        foreach my $class_id (keys %{$matrix{$exp_tag}}) {
-            $normData .= "\t" . $class_id . "\tF32\t" . $matrix{$exp_tag}->{$class_id} . "\n";
+    foreach my $exp_id (keys %matrix) {
+        $normData .= "$exp_id\tMETADATA\n";
+        foreach my $class_id (keys %{$matrix{$exp_id}}) {
+            $normData .= "\t" . $class_id . "\tF32\t" . $matrix{$exp_id}->{$class_id} . "\n";
         }
         $normData .= "END\n\n";