tests/benchmark/benchmark.R

In ms609/TreeDist: Calculate and Map Distances Between Phylogenetic Trees

library("TreeTools", quietly = TRUE)
devtools::load_all()
set.seed(0)

message(Sys.time(), ": Starting.")

postTrees <- Postorder(as.phylo(0:200, 182))
message(Sys.time(), ": Distances.")
xx <- PathDist(postTrees)

message(Sys.time(), ": phangorn.")
xx <- phangorn::path.dist(postTrees)
message(Sys.time(), ": End.")

microbenchmark::microbenchmark(times = 1,
xx <- PathDist(postTrees),
xx <- phangorn::path.dist(postTrees)
)