# HG changeset patch
# User testtool
# Date 1502360354 14400
# Node ID d793e03b4da1845ade661c0441b3ec222c17057e
# Parent  bd3036f7baf4de0df1de2ae89070e52427122d9d
Uploaded

diff -r bd3036f7baf4 -r d793e03b4da1 GRsetFromGEO.R
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/GRsetFromGEO.R	Thu Aug 10 06:19:14 2017 -0400
@@ -0,0 +1,16 @@
+require(minfi, quietly = TRUE)
+
+options(warn = -1)
+options('download.file.method.GEOquery' = 'wget')
+options('GEOquery.inmemory.gpl'=FALSE)
+
+
+args <- commandArgs(trailingOnly = TRUE)
+input = args[1] 
+output = args[2] 
+
+GRset <- getGenomicRatioSetFromGEO(input)
+
+save(GRset,file = output)
+
+