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