if (require(affydata)) {
data(Dilution)
ids <- c( "1000_at","1001_at")
eset <- computeExprSet(Dilution, pmcorrect.method="pmonly",
summary.method="avgdiff", ids=ids)
}
Run the code above in your browser using DataLab