tree1 <- TreeTools::BalancedTree(6)
tree2 <- TreeTools::PectinateTree(6)
VisualizeMatching(RobinsonFouldsMatching, tree1, tree2)
VisualizeMatching(SharedPhylogeneticInfo, tree1, tree2, matchZeros = FALSE)
Run the code above in your browser using DataLab