# HG changeset patch
# User davidvanzessen
# Date 1418718537 18000
# Node ID ff84987df4f8d79e0bbfadb746e1733dfc6b55b5
# Parent  8bdf54f37286697e5aedf998b7ef1591e37d7dab
Uploaded

diff -r 8bdf54f37286 -r ff84987df4f8 RScript.r
--- 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), ]
 }