changeset 17:ff84987df4f8 draft

Uploaded
author davidvanzessen
date Tue, 16 Dec 2014 03:28:57 -0500
parents 8bdf54f37286
children 6a8ec7c022dd
files RScript.r
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/RScript.r	Mon Dec 08 05:21:51 2014 -0500
+++ b/RScript.r	Tue Dec 16 03:28:57 2014 -0500
@@ -60,7 +60,7 @@
 
 #remove duplicates based on the clonaltype
 if(clonaltype != "none"){
-  PRODF$clonaltype = do.call(paste, c(test[unlist(strsplit(clonaltype, ","))], sep = ":"))
+  PRODF$clonaltype = do.call(paste, c(PRODF[unlist(strsplit(clonaltype, ","))], sep = ":"))
   PRODF = PRODF[!duplicated(PRODF$clonaltype), ]
 }