# Next 4 lines commented out to save time in package checks, and saved version used
# if (require(affydata)) {
# data(Dilution)
# eset_mmgmos <- mmgmos(Dilution)
# }
data(eset_mmgmos)
apply(exprs(eset_mmgmos),2,median)
eset_mmgmos_normd <- pumaNormalize(eset_mmgmos)
apply(exprs(eset_mmgmos_normd),2,median)
Run the code above in your browser using DataLab