file <- system.file("extdata", "illumina_qxy.gds", package="GWASdata")
gds <- GdsIntensityReader(file)
intenData <- IntensityData(gds)
meanInten <- meanIntensityByScanChrom(intenData)
close(intenData)
Run the code above in your browser using DataLab