# HG changeset patch
# User davidvanzessen
# Date 1442242565 14400
# Node ID 7d4eda663c29cac79b982dd666fa668c4ab93b71
# Parent  f7c07faaa3e8699692bbd6d75a0d558ba9fa798b
Uploaded

diff -r f7c07faaa3e8 -r 7d4eda663c29 RScript.r
--- a/RScript.r	Mon Sep 14 09:17:50 2015 -0400
+++ b/RScript.r	Mon Sep 14 10:56:05 2015 -0400
@@ -177,7 +177,9 @@
       
       merge.filter = first.merge == patient.fuzzy$merge
       
-      match.filter = merge.filter & grepl(first.clone.sequence, patient.fuzzy$Clone_Sequence)
+      length.filter = nchar(patient.fuzzy$Clone_Sequence) - nchar(first.clone.sequence) <= 9
+      
+      match.filter = merge.filter & grepl(first.clone.sequence, patient.fuzzy$Clone_Sequence) & length.filter
       
       if(sum(match.filter) == 2){
         second.match = which(match.filter)[2]