## first, 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="/"))
data.rma <- rma(data.test3,"tmp_Test3RMA0",tmpdir="",background="pmonly",normalize=TRUE,add.data=FALSE,verbose=FALSE)
## attach data
data.rma <- attachExpr(data.rma)
## get data.frame
expr.rma <- validData(data.rma)
head(expr.rma)
## remove data
data.rma <- removeExpr(data.rma)
rm(scheme.test3, data.test3)
gc()
Run the code above in your browser using DataLab