changeset 46:a2db27f58627 draft

Uploaded
author davidvanzessen
date Mon, 25 Nov 2013 08:33:49 -0500
parents 2c6d04fa10f4
children 33ebd6f0d256
files RScript.r
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)