Fixed a bug in 'EBSeq/rsem-for-ebseq-generate-ngvector-from-clustering-info' which...

[rsem.git] / EBSeq / rsem-for-ebseq-generate-ngvector-from-clustering-info

diff --git a/EBSeq/rsem-for-ebseq-generate-ngvector-from-clustering-info b/EBSeq/rsem-for-ebseq-generate-ngvector-from-clustering-info
index 312dbfa33c77339b530e67362e14e391e75f4259..ccc52f70ad321cca9d71de19eb640978331f550a 100755 (executable)
--- a/EBSeq/rsem-for-ebseq-generate-ngvector-from-clustering-info
+++ b/EBSeq/rsem-for-ebseq-generate-ngvector-from-clustering-info
@@ -6,7 +6,7 @@ if (length(argv) != 2) {
   q(status = 1)
 }
 
-data <- read.table(file = argv[1], stringsAsFactors = F)
+data <- read.table(file = argv[1], stringsAsFactors = F, sep = "\t")
 idx <- data[,2] >= 0
 kmr <- kmeans(data[idx, 2], 3)
 order <- order(kmr$centers)