library(affyPara)
if (require(affydata)) {
celpath <- system.file("celfiles", package="affydata")
fns <- list.celfiles(path=celpath,full.names=TRUE)
makeCluster(3)
##read a text celfile
abatch <- read.affybatchPara(fns[2], verbose=TRUE)
stopCluster()
}
Run the code above in your browser using DataLab