load(system.file("data", "allCall.lst.RData", package="BubbleTree"))
btreeplotter <- new("BTreePlotter", max.ploidy=5, max.size=10)
nn <- "sam2"
rbd1 <- allCall.lst[[nn]]@rbd
rbd2 <- allCall.lst[[nn]]@rbd.adj
arrows <- trackBTree(btreeplotter, rbd1, rbd2, min.srcSize=0.01,
min.trtSize=0.01)
btree <- drawBTree(btreeplotter, rbd1) +
drawBubbles(btreeplotter, rbd2, "gray80") + arrows
Run the code above in your browser using DataLab