## Not run:
# pw <- pairwise.comparison(eset.rma,"group",c("A","P"))
# pw.filtered <- pairwise.filter(pw)
# summary <- results.summary(pw.filtered,"hgu133a")
# write.annotation(file="spreadsheet.xls",summary)
# ## End(Not run)
Run the code above in your browser using DataLab