X-Git-Url: https://git.donarmstrong.com/?p=rsem.git;a=blobdiff_plain;f=EBSeq%2Frsem-for-ebseq-generate-ngvector-from-clustering-info;h=ccc52f70ad321cca9d71de19eb640978331f550a;hp=312dbfa33c77339b530e67362e14e391e75f4259;hb=7cd7abcad92a44bbd5d8d1b2bb3a871cd479c0bf;hpb=9c2e46183a19d661f0a618a8eabe8ce1f6a8e2d6 diff --git a/EBSeq/rsem-for-ebseq-generate-ngvector-from-clustering-info b/EBSeq/rsem-for-ebseq-generate-ngvector-from-clustering-info index 312dbfa..ccc52f7 100755 --- 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)