Mercurial > repos > davidvanzessen > plotting_merged

changeset 54:3fb05bdd5299 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Tue, 14 Jan 2014 04:34:09 -0500
parents 6ab4c67af3b7
children 3d609220e92a
files RScript.r
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/RScript.r	Fri Jan 10 03:40:06 2014 -0500
+++ b/RScript.r	Tue Jan 14 04:34:09 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){