controlFile <- system.file('doc', 'Control_Probe_Profile.txt', package='lumi')
if (file.exists(controlFile)) {
## return a data.frame
controlData <- getControlData(controlFile)
class(controlData)
names(controlData)
## return a LumiBatch object
controlData <- getControlData(controlFile, type='LumiBatch')
summary(controlData)
}
Run the code above in your browser using DataLab