## Not run:
# 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()
# }
# ## End(Not run)
Run the code above in your browser using DataLab