# HG changeset patch
# User davidvanzessen
# Date 1385386429 18000
# Node ID a2db27f586279a6d61097161f48a179337ad940b
# Parent  2c6d04fa10f4078fc6226fbb791a5648702999c0
Uploaded

diff -r 2c6d04fa10f4 -r a2db27f58627 RScript.r
--- a/RScript.r	Mon Nov 25 08:30:26 2013 -0500
+++ b/RScript.r	Mon Nov 25 08:33:49 2013 -0500
@@ -32,7 +32,7 @@
 
 if("Replicate" %in% colnames(test))
 {
-	test$SRID = do.call(paste, c(test["Sample", "Replicate"], sep = "-"))
+	test$SRID = do.call(paste, c(test[c("Sample", "Replicate")], sep = "-"))
 }
 
 test$Top.V.Gene = gsub("[*]([0-9]+)", "", test$Top.V.Gene)