ReduceTrees() reduces trees according to the tree reduction rules of \insertCite Allen2001;textualTreeDist:
Collapse identical pendant subtrees;
Compress equivalent internal chains.
ReduceTrees(tree1, tree2, check =TRUE)
Arguments
tree1, tree2: Single trees of class phylo to undergo comparison.
check: Logical specifying whether to validate input. Specify FALSE and you will encounter undefined behaviour if trees are not binary phylo objects with identical leaf labels, rooted on leaf 1.
Returns
ReduceTrees() returns a list of two trees, corresponding to tree1 and tree2 after any identical groupings have been collapsed, with tree edges listed in postorder; or NULL if the trees are equivalent.
Examples
tree1 <- TreeTools::BalancedTree(9)tree2 <- TreeTools::PectinateTree(9)# Set graphical parametersoPar <- par(mai = rep(0.1,4), mfrow = c(2,2))plot(tree1)plot(tree2)# Reduce trees by collapsing identical cladesconfl <- ReduceTrees(tree1, tree2)plot(confl[[1]])plot(confl[[2]])# Restore graphical parameterspar(oPar)