if(require(beadarrayExampleData)){
data(exampleSummaryData)
exampleSummaryData.log2 <- channel(exampleSummaryData,"G")
exampleSummaryData.med = assayDataElementReplace(exampleSummaryData.log2, "exprs", medianNormalise(exprs(exampleSummaryData.log2)))
}
Run the code above in your browser using DataLab