tests/benchmark/benchmark-as.splits.R

devtools::load_all()
ub <- microbenchmark::microbenchmark
set.seed(0)

trees1k <- Cladewise(as.phylo(1:200, 1001))

bench <- summary(ub(Preorder(trees1k[[1]]), as.Splits(trees1k[[1]])))
meds <- bench$median
meds[2] / meds[1] # 22.2 -> 8.8
ms609/TreeTools documentation built on April 12, 2025, 4:51 p.m.