Mercurial > repos > davidvanzessen > mutation_analysis

comparison 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
comparison
equal deleted inserted replaced
79:0513b46178c4 80:a4c2ddeadec0
15 names(final)[names(final) == "best_match"] = "Sample" 15 names(final)[names(final) == "best_match"] = "Sample"
16 final.numeric = final[,sapply(final, is.numeric)] 16 final.numeric = final[,sapply(final, is.numeric)]
17 final.numeric[is.na(final.numeric)] = 0 17 final.numeric[is.na(final.numeric)] = 0
18 final[,sapply(final, is.numeric)] = final.numeric 18 final[,sapply(final, is.numeric)] = final.numeric
19 19
20 final.ca = final[grepl("ca", final$Sample),] 20 final.ca = final[grepl("^ca", final$Sample),]
21 final.cg = final[grepl("cg", final$Sample),] 21 final.cg = final[grepl("^cg", final$Sample),]
22 final.cm = final[grepl("cm", final$Sample),] 22 final.cm = final[grepl("^cm", final$Sample),]
23 23
24 if(nrow(final.ca) > 0){ 24 if(nrow(final.ca) > 0){
25 final.ca$Replicate = 1 25 final.ca$Replicate = 1
26 } 26 }
27 27