| loadRBD {BubbleTree} | R Documentation |
load the RBD data
loadRBD(.Object, rbd, total.mark = NA) ## S4 method for signature 'BTreePredictor' loadRBD(.Object, rbd, total.mark = NA)
.Object |
the object |
rbd |
rbd object |
total.mark |
total mark |
.Object populated with the RBD list with updated segment size
load(system.file("data", "allRBD.lst.RData", package="BubbleTree"))
btreepredictor <- new("BTreePredictor")
btreepredictor@config$cutree.h <- 0.15
high.ploidy <- rep(TRUE, length(allRBD.lst))
high.purity <- rep(TRUE, length(allRBD.lst))
high.ploidy[c("sam6",
"ovary.wgs",
"ovary.wes",
"TCGA-06-0145-01A-01W-0224-08",
"TCGA-13-1500-01A-01D-0472-01",
"TCGA-AO-A0JJ-01A-11W-A071-09")] <- FALSE
high.purity[c("sam6", "ovary.wgs", "ovary.wes")] <- FALSE
nn <- "sam6"
rbd <- allRBD.lst[[nn]]
btreepredictor@config$high.ploidy <- high.ploidy[nn]
btreepredictor@config$high.purity <- high.purity[nn]
btreepredictor <- loadRBD(btreepredictor, rbd)