Day1 方便快捷的下载GSE 数据集

1.  downGSE <- function(studyID = "GSE1009", destdir = ".")  {

    library(GEOquery)

    eSet <- getGEO(studyID, destdir = destdir, getGPL = F)

   exprSet = exprs(eSet[[1]]) pdata = pData(eSet[[1]])

   write.csv(exprSet, paste0(studyID, "_exprSet.csv"))

   write.csv(pdata, paste0(studyID, "_metadata.csv"))

   return(eSet)

 }

2. downGSE("GSEXXXX")

运行后，就会得到两个.csv文件：详细信息和表达矩阵。