# NOT RUN {
# Read in example data from ArrayExpress-webpage:
library("ArrayExpress")
expFiles <- getAE("E-GEOD-62837", path = tempdir(), type = "raw")
rawfiles <- file.path(tempdir(), expFiles$rawFiles)
library("affy")
# Training data:
affybatchtrain <- ReadAffy(filenames=rawfiles[1:3])
try(file.remove(file.path(tempdir(), expFiles$rawFiles)))
try(file.remove(file.path(tempdir(), expFiles$processedFiles)))
try(file.remove(file.path(tempdir(), expFiles$sdrf)))
try(file.remove(file.path(tempdir(), expFiles$idf)))
try(file.remove(file.path(tempdir(), expFiles$adf)))
try(file.remove(file.path(tempdir(), expFiles$rawArchive)))
try(file.remove(file.path(tempdir(), expFiles$processedArchive)))
# RMA normalization with documentation by value:
rmaparams <- rmatrain(affybatchtrain)
Xtrainnorm <- rmaparams$xnorm
dim(Xtrainnorm)
# }
Run the code above in your browser using DataLab