Mercurial > repos > testtool > find_snp
annotate findSNPs/findSNPs.R @ 2:15bb9a34d924 draft
Uploaded
| author | testtool |
|---|---|
| date | Sun, 11 Jun 2017 11:49:04 -0400 |
| parents | |
| children |
| rev | line source |
|---|---|
| 2 | 1 require("minfi", quietly = TRUE) |
| 2 | |
| 3 options(warn = -1) | |
| 4 options("download.file.method"="wget") | |
| 5 | |
| 6 args <- commandArgs(trailingOnly = TRUE) | |
| 7 | |
| 8 input = args[1] | |
| 9 output = args[2] | |
| 10 | |
| 11 GRset <- get(load(input)) | |
| 12 | |
| 13 snps <- getSnpInfo(GRset) | |
| 14 | |
| 15 write.table(snps, output) | |
| 16 | |
| 17 |