# HG changeset patch
# User davidvanzessen
# Date 1440582680 14400
# Node ID 32d8a5abed4cb01e20c0a135739f792a5b774467
# Parent  37d9074ef2c63c9d1b5a28f9a54dd762cb781c7c
Uploaded

diff -r 37d9074ef2c6 -r 32d8a5abed4c RScript.r
--- a/RScript.r	Wed Aug 26 05:19:55 2015 -0400
+++ b/RScript.r	Wed Aug 26 05:51:20 2015 -0400
@@ -223,8 +223,8 @@
         
         
         #remove the fuzzy merged clone sequences from the original datasets
-        patient1 <<- patient1[patient1$Clone_Sequence != patient1.fuzzy[1,"Clone_Sequence"],]
-        patient2 <<- patient2[patient2$Clone_Sequence != patient2.fuzzy[agrep.match,"Clone_Sequence"],]
+        patient1 = patient1[patient1$Clone_Sequence != patient1.fuzzy[1,"Clone_Sequence"],]
+        patient2 = patient2[patient2$Clone_Sequence != patient2.fuzzy[agrep.match,"Clone_Sequence"],]
         
         scatterplot_data = scatterplot_data[scatterplot_data$merge != current.clone.seq.2,]