if (require(oligoData)){
data(affyGeneFS)
availProbeInfo(affyGeneFS)
probeInfo <- getProbeInfo(affyGeneFS, c('fid', 'x', 'y', 'chrom'))
head(probeInfo)
## Selecting antigenomic background probes
agenGene <- getProbeInfo(affyGeneFS, field=c('fid', 'fsetid', 'type'), target='probeset', subset= type == 'control->bgp->antigenomic')
head(agenGene)
}
Run the code above in your browser using DataLab