Mercurial > repos > davidvanzessen > argalaxy_tools

comparison report_clonality/RScript.r @ 73:7c9b9d97d596 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Thu, 25 Aug 2016 07:15:27 -0400
parents a59de79f6c0f
children 08254c202db7
comparison
equal deleted inserted replaced
72:93c7d58a292c 73:7c9b9d97d596
133 } 133 }
134 134
135 135
136 136
137 #write the complete dataset that is left over, will be the input if 'none' for clonaltype and 'no' for filterproductive 137 #write the complete dataset that is left over, will be the input if 'none' for clonaltype and 'no' for filterproductive
138 write.table(PRODF, "allUnique.txt", sep=",",quote=F,row.names=F,col.names=T) 138 write.table(PRODF, "allUnique.txt", sep="\t",quote=F,row.names=F,col.names=T)
139 write.table(PRODF, "allUnique.csv", sep="\t",quote=F,row.names=F,col.names=T) 139 write.table(PRODF, "allUnique.csv", sep=",",quote=F,row.names=F,col.names=T)
140 write.table(UNPROD, "allUnproductive.csv", sep=",",quote=F,row.names=F,col.names=T) 140 write.table(UNPROD, "allUnproductive.csv", sep=",",quote=F,row.names=F,col.names=T)
141 141
142 #write the samples to a file 142 #write the samples to a file
143 sampleFile <- file("samples.txt") 143 sampleFile <- file("samples.txt")
144 un = unique(inputdata$Sample) 144 un = unique(inputdata$Sample)