if(require(beadarrayExampleData)){
data(exampleSummaryData)
rawdata <- channel(exampleSummaryData, "G")
normdata <- normaliseIllumina(rawdata)
limmaResults <- limmaDE(normdata, SampleGroup = "SampleFac")
limmaResults
DesignMatrix(limmaResults)
}
Run the code above in your browser using DataLab