## Not run:
# ## load ROOT scheme file and ROOT data file
# scheme.test3 <- root.scheme(paste(path.package("xps"),"schemes/SchemeTest3.root",sep="/"))
# data.test3 <- root.data(scheme.test3, paste(path.package("xps"),"rootdata/DataTest3_cel.root",sep="/"))
#
# ## create an ExprTreeSet
# data.rma <- rma(data.test3,"tmp_TestRMA",tmpdir="",background="pmonly",normalize=TRUE,verbose=FALSE)
#
# ## get expression values
# value <- exprs(data.rma)
#
# ## selected treenames only
# treenames <- c("TestA2", "TestB1")
#
# ## make a copy of your object if you do not want to replace it
# subset.rma <- data.rma
#
# ## replace slot data with subset
# exprs(subset.rma, treenames) <- value
# str(subset.rma)
# ## End(Not run)
Run the code above in your browser using DataLab