#Read a BeadSetIllumina object using files in example data directory
rPath <- system.file("extdata", package="beadarrayMSV")
BSDataRaw <- readBeadSummaryOutput(path=rPath,recursive=TRUE)
#Print information from object
BSDataRaw
pData(BSDataRaw)
varMetadata(BSDataRaw)
#Alternatively:
sampleFile <- paste(rPath,'sampleData.txt',sep='/')
sampleInfo <- read.table(sampleFile,skip=8,sep='\t',header=TRUE,
colClasses='character')
rownames(sampleInfo) <- make.names(paste(sampleInfo$chip,
sampleInfo$row,sep='_'))
pattern <- 'beadTypeFile.txt'
fullPaths <- paste(sampleInfo$chip,'/',sampleInfo$chip,'_',
sampleInfo$row,'_',pattern,sep='')
BSDataRaw <- readBeadSummaryOutput(fullPaths=fullPaths[1:4],
path=rPath,pattern=pattern)
## Plot G vs. R
dev.new()
scatterArrays(BSDataRaw,smooth=FALSE)
Run the code above in your browser using DataLab