#Read a BeadSetIllumina object using files in example data directory
rPath <- system.file("extdata", package="beadarrayMSV")
BSDataRaw <- readBeadSummaryOutput(path=rPath,recursive=TRUE)
## Plot G vs. R
dev.new()
scatterArrays(BSDataRaw,smooth=FALSE)
Run the code above in your browser using DataLab