## Not run:
# ## load existing 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="/"))
#
# ## qualification - rlm
# rlm.all <- rmaPLM(data.test3, "tmp_Test3RLMall", filedir=getwd(), tmpdir="", qualopt="all", option="transcript", add.data=FALSE)
#
# ## plot expression levels
# if (interactive()) {
# NUSE(rlm.all)
# NUSE(rlm.all, qualopt="normalized")
# qcNUSE <- NUSE(rlm.all, type="stats")
# qcNUSE <- NUSE(rlm.all, type="values")
# qcNUSE <- NUSE(rlm.all, treename="TestA1_normalized.rlm", type="stats")
# qcNUSE <- NUSE(rlm.all, treename="TestA1_normalized.rlm", type="values")
# }
# ## End(Not run)
Run the code above in your browser using DataLab