inst/tinytest/test_hash.R

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
KlausVigo/phangorn documentation built on June 23, 2024, 10:49 p.m.