Mercurial > repos > davidvanzessen > mutation_analysis

diff naive_output.r @ 80:a4c2ddeadec0 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Thu, 12 May 2016 10:51:55 -0400
parents c2e1d5a93f98
children a778156dad3d
line wrap: on
line diff
--- a/naive_output.r	Thu May 12 07:35:07 2016 -0400
+++ b/naive_output.r	Thu May 12 10:51:55 2016 -0400
@@ -17,9 +17,9 @@
 final.numeric[is.na(final.numeric)] = 0
 final[,sapply(final, is.numeric)] = final.numeric
 
-final.ca = final[grepl("ca", final$Sample),]
-final.cg = final[grepl("cg", final$Sample),]
-final.cm = final[grepl("cm", final$Sample),]
+final.ca = final[grepl("^ca", final$Sample),]
+final.cg = final[grepl("^cg", final$Sample),]
+final.cm = final[grepl("^cm", final$Sample),]
 
 if(nrow(final.ca) > 0){
 	final.ca$Replicate = 1