## load ROOT scheme file
scheme.test3 <- root.scheme(paste(path.package("xps"),"schemes/SchemeTest3.root",sep="/"))
## unitNames not attached
id <- unitID2probesetID(scheme.test3, c(2,34,229))
id
## unitNames attached
scheme.test3 <- attachUnitNames(scheme.test3)
id <- probesetID2unitID(scheme.test3, c("PA1178_oprH_at","AFFX-Bt_eIF-4E_3_at","100084_at"))
id
scheme.test3 <- removeUnitNames(scheme.test3)
rm(scheme.test3)
gc()
Run the code above in your browser using DataLab