# \donttest{
library(RCPA)
geoId <- "GSE28522"
downloadPath <- file.path(tempdir(), geoId)
fileList <- RCPA::downloadGEO(GEOID = geoId, protocol = "agilent",
platform ="GPL4133", destDir = downloadPath)
expression <- RCPA::processAgilent(downloadPath, greenOnly = FALSE)
# }
Run the code above in your browser using DataLab