annotate GRsetFromGEO/GRsetFromGEO.R @ 28:3d281ad15b83 draft

Uploaded
author testtool
date Thu, 13 Apr 2017 11:26:43 -0400
parents 59122070e61d
children 118e636a5f95
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
21
59122070e61d Uploaded
testtool
parents: 20
diff changeset
1 require("minfi", quietly = TRUE)
59122070e61d Uploaded
testtool
parents: 20
diff changeset
2
12
0631845b906d Uploaded
testtool
parents:
diff changeset
3 options(warn = -1)
0631845b906d Uploaded
testtool
parents:
diff changeset
4 options("download.file.method"="wget")
0631845b906d Uploaded
testtool
parents:
diff changeset
5
0631845b906d Uploaded
testtool
parents:
diff changeset
6 args <- commandArgs(trailingOnly = TRUE)
0631845b906d Uploaded
testtool
parents:
diff changeset
7 GSE = args[1]
0631845b906d Uploaded
testtool
parents:
diff changeset
8 output = args[2]
0631845b906d Uploaded
testtool
parents:
diff changeset
9
21
59122070e61d Uploaded
testtool
parents: 20
diff changeset
10 GRset <- getGenomicRatioSetFromGEO(GSE)
28
3d281ad15b83 Uploaded
testtool
parents: 21
diff changeset
11 a<-"stefan"
3d281ad15b83 Uploaded
testtool
parents: 21
diff changeset
12 write.table(a,output)
12
0631845b906d Uploaded
testtool
parents:
diff changeset
13
28
3d281ad15b83 Uploaded
testtool
parents: 21
diff changeset
14 #save(GRset,file = output)