## load ROOT scheme file
scheme.test3 <- root.scheme(paste(path.package("xps"),"schemes/SchemeTest3.root",sep="/"))
scheme.test3 <- attachProbeSequence(scheme.test3)
## get UNIT_ID for probeset ID
id <- probesetID2unitID(scheme.test3, "100084_at")
## get GC content
seq <- probeSequence(scheme.test3, unitID=id)
head(seq)
scheme.test3 <- removeProbeSequence(scheme.test3)
rm(scheme.test3)
gc()
Run the code above in your browser using DataLab