Mercurial > repos > davidvanzessen > mutation_analysis
annotate filter.r @ 3:a0b27058dcac draft
Uploaded
| author | davidvanzessen |
|---|---|
| date | Wed, 17 Sep 2014 07:25:17 -0400 |
| parents | 74d2bc479bee |
| children |
| rev | line source |
|---|---|
| 0 | 1 args <- commandArgs(trailingOnly = TRUE) |
| 2 | |
| 3 input = args[1] | |
| 4 filterf = args[2] | |
| 5 output = args[3] | |
| 6 | |
| 7 | |
| 8 dat = read.table(input, header=T, sep="\t", fill=T, stringsAsFactors=F) | |
| 9 filterdat = read.table(filterf, header=T, sep="\t", fill=T, stringsAsFactors=F) | |
| 10 | |
| 11 dat = dat[dat$Sequence.ID %in% filterdat$ID,] | |
| 12 | |
| 13 write.table(x=dat, file=output, sep="\t",quote=F,row.names=F,col.names=T) |