Mercurial > repos > testtool > geo_data

diff GEO/getGEO.R @ 9:19ea355e26b3 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author testtool
date Tue, 28 Feb 2017 05:11:54 -0500
parents 0647e033c218
children
line wrap: on
line diff
--- a/GEO/getGEO.R	Tue Feb 28 05:06:41 2017 -0500
+++ b/GEO/getGEO.R	Tue Feb 28 05:11:54 2017 -0500
@@ -23,7 +23,7 @@
   MetaData <- data.frame(Meta(GEODataTable))
 
 
-  write.csv(MetaData, protocol, row.names = FALSE, sep = "\t")
+  write.table(MetaData, protocol, row.names = FALSE, sep = "\t")
 }
 
 hm450.hg19 <- getPlatform()
@@ -36,7 +36,7 @@
   )
 
 
-write.csv(IlmnInfo, platform, row.names = FALSE, sep = "\t")
+write.table(IlmnInfo, platform, row.names = FALSE, sep = "\t")
 
 
 if (length(TAB$ID) > 1) {