# HG changeset patch
# User davidvanzessen
# Date 1424705848 18000
# Node ID b662fdc7eff4d21c273c957b4b84dbbc9cb2faea
# Parent  d980e2493657ca456f460aa95a0117f32ab28a4a
Uploaded

diff -r d980e2493657 -r b662fdc7eff4 RScript.r
--- a/RScript.r	Mon Feb 23 10:23:14 2015 -0500
+++ b/RScript.r	Mon Feb 23 10:37:28 2015 -0500
@@ -51,7 +51,7 @@
 
 dat$paste = paste(dat$Sample, dat$Clone_Sequence)
 
-patients = split(dat, dat$Patient, drop=T)[1:10]
+patients = split(dat, dat$Patient, drop=T)
 intervalReads = rev(c(0,10,25,50,100,250,500,750,1000,10000))
 intervalFreq = rev(c(0,0.01,0.05,0.1,0.5,1,5))
 V_Segments = c(".*", "IGHV", "IGHD", "IGKV", "IGKV", "IgKINTR", "TRGV", "TRDV", "TRDD" , "TRBV")