trees <- rmtree(30, 5, rooted=FALSE)
trees <- .compressTipLabel(trees, ref=sort(trees$tip.label))
tree_u1 <- unique(trees)
tmp <- hash(trees)
tree_u2 <- trees[!duplicated(tmp)]
expect_equal(attr(tree_u1, "old.index"), match(tmp, tmp))
#all.equal
# RF.dist && dist.topo
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.