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