# HG changeset patch
# User davidvanzessen
# Date 1447075193 18000
# Node ID 7a63e90cfc3db3c75ad2895ed2c301f5a1f85266
# Parent  39fff0180d41dc528ac207143e28c48d5def0ebd
Uploaded

diff -r 39fff0180d41 -r 7a63e90cfc3d RScript.r
--- a/RScript.r	Thu Nov 05 09:07:03 2015 -0500
+++ b/RScript.r	Mon Nov 09 08:19:53 2015 -0500
@@ -527,6 +527,7 @@
   patient3.fuzzy$merge = paste(patient3.fuzzy$locus_V, patient3.fuzzy$locus_J)
 
   patient.fuzzy = rbind(patient1.fuzzy ,patient2.fuzzy, patient3.fuzzy)
+  patient.fuzzy = patient.fuzzy[order(nchar(patient.fuzzy$Clone_Sequence)),]
 
   other.sample.list = list()
   other.sample.list[[oneSample]] = c(twoSample, threeSample)