Updated EBSeq from v1.1.5 to v1.1.6 and fixed a bug in 'rsem-generate-data-matrix...

[rsem.git] / rsem-generate-data-matrix

diff --git a/rsem-generate-data-matrix b/rsem-generate-data-matrix
index 951f415df24a8de4e5efd1e594daa11608abe87c..b1b4f63e9713babf3730565261f90c6738fdcdfe 100755 (executable)
--- a/rsem-generate-data-matrix
+++ b/rsem-generate-data-matrix
@@ -22,7 +22,7 @@ sub loadData {
     while ($line = <INPUT>) {
        chomp($line); 
        my @fields = split(/\t/, $line);
-       push(@{$_[2]}, $fields[0]);
+       push(@{$_[2]}, "\"$fields[0]\"");
        push(@{$_[1]}, $fields[$offsite]);
     }
     close(INPUT);
@@ -59,7 +59,11 @@ for (my $i = 0; $i < $n; $i++) {
        exit(-1); 
     }
 
-    @ecs = ($ARGV[$i], @ecs);
+    my $colname;
+    if (substr($ARGV[$i], 0, 2) eq "./") { $colname = substr($ARGV[$i], 2); }
+    else { $colname = $ARGV[$i]; }
+    $colname = "\"$colname\"";
+    @ecs = ($colname, @ecs);
     push(@matrix, \@ecs);
 }