changeset 14:8002401b83c4 draft

Uploaded
author davidvanzessen
date Fri, 14 Nov 2014 04:15:43 -0500
parents 50260274967c
children c6d0ee9b3d91
files RScript.r
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/RScript.r	Thu Nov 13 10:41:52 2014 -0500
+++ b/RScript.r	Fri Nov 14 04:15:43 2014 -0500
@@ -60,7 +60,7 @@
 
 #remove duplicates based on the clonaltype
 if(clonaltype != "none"){
-  PRODF$clonaltype = paste(PRODF[,unlist(strsplit(clonaltype, ","))], sep=":")
+  PRODF$clonaltype = do.call(paste, c(test[unlist(strsplit(clonaltype, ","))], sep = ":"))
   PRODF = PRODF[!duplicated(PRODF$clonaltype), ]
 }