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