Assuming trees are rooted and fully bifurcating, I think the following will
work. I tried a few tests and it seemed to work. I traded a few emails back
and forth with Jake to make sure I understood what he wanted. Guess what I
was supposed to be working on wasn't holding my attention...
Best,
Hi Jacob,
ape::makeNodeLabel(phy, method = "md5sum") returns 'phy' with node labels that
depend on the tips descendant from each node. For instance:
tr3 <- makeNodeLabel(rtree(3), m = "m")
tr4 <- makeNodeLabel(rtree(4), m = "m")
any(tr3$node.label %in% tr4$node.label)
If you repeat these 3