Mercurial > repos > testtool > geo_data

annotate getGRsetFromGEO/getGRsetFromGEO.R @ 11:983651783ce9 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author testtool
date Wed, 22 Mar 2017 09:01:06 -0400
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
11
983651783ce9 Uploaded
testtool
parents:
diff changeset
1 require("minfi", quietly = TRUE)
983651783ce9 Uploaded
testtool
parents:
diff changeset
2
983651783ce9 Uploaded
testtool
parents:
diff changeset
3 options(warn = -1)
983651783ce9 Uploaded
testtool
parents:
diff changeset
4 options("download.file.method"="wget")
983651783ce9 Uploaded
testtool
parents:
diff changeset
5
983651783ce9 Uploaded
testtool
parents:
diff changeset
6 args <- commandArgs(trailingOnly = TRUE)
983651783ce9 Uploaded
testtool
parents:
diff changeset
7
983651783ce9 Uploaded
testtool
parents:
diff changeset
8 GSE = args[1] #GSE51547
983651783ce9 Uploaded
testtool
parents:
diff changeset
9 output = args[2] #output <- ("GEOdata.txt")
983651783ce9 Uploaded
testtool
parents:
diff changeset
10
983651783ce9 Uploaded
testtool
parents:
diff changeset
11 GEO <- getGenomicRatioSetFromGEO(GSE)
983651783ce9 Uploaded
testtool
parents:
diff changeset
12
983651783ce9 Uploaded
testtool
parents:
diff changeset
13 save(GEO, ascii=TRUE, file=output)
983651783ce9 Uploaded
testtool
parents:
diff changeset
14