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