# HG changeset patch
# User davidvanzessen
# Date 1389692024 18000
# Node ID c69d9262c66dbf2ab0abf82ec03935b116d6378d
# Parent  b07346fe54b45514c00e1c42b5eceda933276dc2
Uploaded

diff -r b07346fe54b4 -r c69d9262c66d RScript.r
--- a/RScript.r	Fri Jan 10 03:43:04 2014 -0500
+++ b/RScript.r	Tue Jan 14 04:33:44 2014 -0500
@@ -267,6 +267,7 @@
 
 	ReplicateReads = data.frame(data.table(clonalityFrame)[, list(Type=.N), by=c("Sample", "Replicate", "VDJCDR3")])
 	ReplicateReads = data.frame(data.table(ReplicateReads)[, list(Reads=.N), by=c("Sample", "Replicate")])
+	clonalFreqCount$Reads = as.numeric(clonalFreqCount$Reads)
 	ReplicateReads$squared = ReplicateReads$Reads * ReplicateReads$Reads
 
 	ReplicatePrint <- function(dat){