## first, load ROOT scheme file
scheme.test3 <- root.scheme(paste(path.package("xps"),"schemes/SchemeTest3.root",sep="/"))
## attach unitname
scheme.test3 <- attachUnitNames(scheme.test3)
## get data.frame
unitnames <- unitNames(scheme.test3)
head(unitnames)
## remove unitname
scheme.test3 <- removeUnitNames(scheme.test3)
rm(scheme.test3)
gc()
Run the code above in your browser using DataLab