# HG changeset patch
# User davidvanzessen
# Date 1415956543 18000
# Node ID 8002401b83c473fe31236ee0ee2c6b3aadd7d9ca
# Parent  50260274967c7d12466518a5ccd36015cbc73acb
Uploaded

diff -r 50260274967c -r 8002401b83c4 RScript.r
--- 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), ]
 }