data(UPSpep25)
labels <- Biobase::pData(UPSpep25)[,"Label"]
objAfter <- wrapper.normalizeD(UPSpep25, "Median Centering",
"within conditions")
wrapper.compareNormalizationD(UPSpep25, objAfter, labels)
Run the code above in your browser using DataLab