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