## load existing ROOT scheme file
scheme.test3 <- root.scheme(paste(path.package("xps"),"schemes/SchemeTest3.root",sep="/"))
dim(chipMask(scheme.test3))
scheme.test3 <- attachMask(scheme.test3)
dim(chipMask(scheme.test3))
head(chipMask(scheme.test3))
scheme.test3 <- removeMask(scheme.test3)
dim(chipMask(scheme.test3))
Run the code above in your browser using DataLab