## load pre-computed parameters
data(hgu95av2.pdnn.params)
library(affydata)
data(Dilution)
## one CEL to go faster
afbatch <- Dilution[, 1]
## Take only few IDs (the 10 first)
ids <- ls(getCdfInfo(afbatch))[1:10]
eset <- expressopdnn(afbatch, bg.correct=FALSE,
normalize=FALSE,
findparams.param=list(params.chiptype=hgu95av2.pdnn.params,
give.warnings=FALSE),
summary.subset=ids)
Run the code above in your browser using DataLab