Mercurial > repos > davidvanzessen > mutation_analysis

comparison naive_output.r @ 81:a778156dad3d draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Tue, 17 May 2016 04:17:38 -0400
parents a4c2ddeadec0
children e7b550d52eb7
comparison
equal deleted inserted replaced
80:a4c2ddeadec0 81:a778156dad3d
31 31
32 if(nrow(final.cm) > 0){ 32 if(nrow(final.cm) > 0){
33 final.cm$Replicate = 1 33 final.cm$Replicate = 1
34 } 34 }
35 35
36
37
38
39 #print(paste("nrow final:", nrow(final))) 36 #print(paste("nrow final:", nrow(final)))
40 #final2 = final 37 #final2 = final
41 #final2$Sample = gsub("[0-9]", "", final2$Sample) 38 #final2$Sample = gsub("[0-9]", "", final2$Sample)
42 #final = rbind(final, final2) 39 #final = rbind(final, final2)
43 #final$Replicate = 1 40 #final$Replicate = 1
44 41
45 write.table(final.ca, output.file.ca, quote=F, sep="\t", row.names=F, col.names=T) 42 write.table(final.ca, output.file.ca, quote=F, sep="\t", row.names=F, col.names=T)
46 write.table(final.cg, output.file.cg, quote=F, sep="\t", row.names=F, col.names=T) 43 write.table(final.cg, output.file.cg, quote=F, sep="\t", row.names=F, col.names=T)
47 write.table(final.cm, output.file.cm, quote=F, sep="\t", row.names=F, col.names=T) 44 write.table(final.cm, output.file.cm, quote=F, sep="\t", row.names=F, col.names=T)
45
46
47
48
49
50
51