## Not run:
# ## 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="/"))
#
# ## optional normalized expression levels
# data.rma <- rma(data.test3,"Test3RMA",tmpdir="",background="pmonly",normalize=TRUE,verbose=FALSE)
#
# ## optional MAS5 detection call
# call.mas5 <- mas5.call(data.test3,"Test3Call",tmpdir="",verbose=FALSE)
#
# ## optional quality measures
# rlm.all <- rmaPLM(data.test3, "tmp_Test3RLMall", filedir=getwd(), tmpdir="", qualopt="all", option="transcript", add.data=FALSE)
#
# ## quality assessment report
# xpsQAReport(data.test3, data.rma, call.mas5, rlm.all, dataset="My Dataset", add.pseudo=TRUE, overwrite=TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab