library(affyPara)
if (require(affydata)) {
data(Dilution)
makeCluster(3)
esset <- computeExprSetPara(Dilution,
pmcorrect.method = "pmonly",
summary.method = "avgdiff",
verbose = TRUE)
stopCluster()
}
Run the code above in your browser using DataLab