## Not run:
# conn <- connectDatabase(user="usrname",password="passwd",dbname="compendium")
# downloadGEOdata("GSE1657")
#
# # GSE1657 has GPL96 and GPL97 platform data. Load only GPL96 data
# loadDataToCompendium(conn,"GSE1657","GPL96")
#
# # Load both GPL96 and GPL97 as a character vector
# loadDataToCompendium(conn,"GSE1657",c("GPL96","GPL97"))
# # Both platforms can also be loaded using the default value for GPLid
#
# # Load multiple GSEs to the compendium
# for (i in c("GSE4251","GSE6495","GSE12597","GSE1657")){
# loadDataToCompendium(con=conn,GSEid=i)
# }
# ## End(Not run)
Run the code above in your browser using DataLab