library("TreeTools", quietly = TRUE, warn.conflicts = FALSE)
VisualizeQuartets(BalancedTree(10), CollapseNode(PectinateTree(10), 19),
style = "label")
# Keep original plotting parameters:
origPar <- par(mfrow = c(2, 2))
VisualizeQuartets(BalancedTree(10), CollapseNode(PectinateTree(10), 19),
setPar = FALSE)
VisualizeQuartets(BalancedTree(10), CollapseNode(PectinateTree(10), 19),
style = "bar", legend = FALSE, setPar = FALSE)
par(origPar)
VisualizeQuartets(BalancedTree(20), CollapseNode(PectinateTree(20), 29:33),
style = "size", scale = 2)
Run the code above in your browser using DataLab