## 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)
#
# ## get borders
# brd.rlm.all <- borders(rlm.all)
#
# ## get residuals
# res.rlm.all <- residuals(rlm.all)
#
# ## get weights
# w.rlm.all <- weights(rlm.all)
#
# ## plot expression levels
# if (interactive()) {
# coiplot(rlm.all)
# borderplot(rlm.all)
# nuseplot(rlm.all)
# rleplot(rlm.all)
# image(rlm.all, type="resids")
# }
# ## End(Not run)
Run the code above in your browser using DataLab