Mercurial > repos > davidvanzessen > mutation_analysis

comparison naive_output.r @ 70:c2e1d5a93f98 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Thu, 28 Apr 2016 08:11:55 -0400
parents 7acdcd5c52ef
children a4c2ddeadec0
comparison
equal deleted inserted replaced
69:7acdcd5c52ef 70:c2e1d5a93f98
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){
25 final.ca$Replicate = 1
26 }
27
28 if(nrow(final.cg) > 0){
29 final.cg$Replicate = 1
30 }
31
32 if(nrow(final.cm) > 0){
33 final.cm$Replicate = 1
34 }
35
36
24 37
25 38
26 #print(paste("nrow final:", nrow(final))) 39 #print(paste("nrow final:", nrow(final)))
27 #final2 = final 40 #final2 = final
28 #final2$Sample = gsub("[0-9]", "", final2$Sample) 41 #final2$Sample = gsub("[0-9]", "", final2$Sample)