# HG changeset patch
# User davidvanzessen
# Date 1423490010 18000
# Node ID 01f05258f67258bf8547bb2c0579c35b8c286358
# Parent  ea5c2a2cc1f333cdc0801018c1dc5d521de9bb79
Uploaded

diff -r ea5c2a2cc1f3 -r 01f05258f672 RScript.r
--- a/RScript.r	Mon Feb 09 05:02:33 2015 -0500
+++ b/RScript.r	Mon Feb 09 08:53:30 2015 -0500
@@ -72,6 +72,9 @@
   PRODF$clonaltype = do.call(paste, c(PRODF[unlist(strsplit(clonaltype, ","))], sep = ":"))
   PRODF = PRODF[!duplicated(PRODF$clonaltype), ]
   
+  UNPROD$clonaltype = do.call(paste, c(UNPROD[unlist(strsplit(clonaltype, ","))], sep = ":"))
+  UNPROD = UNPROD[!duplicated(UNPROD$clonaltype), ]
+  
   #again for clonalityFrame but with sample+replicate
   clonalityFrame$clonaltype = do.call(paste, c(clonalityFrame[unlist(strsplit(clonaltype, ","))], sep = ":"))
   clonalityFrame$clonality_clonaltype = do.call(paste, c(clonalityFrame[unlist(strsplit(paste(clonaltype, ",Replicate", sep=""), ","))], sep = ":"))