phylogeny <- ape::read.tree(text = "((a:2,b:2):1,c:3);")
all.equal(as.vector(nLTT::get_n_lineages(phylogeny)), c(2, 3))
phylogeny$root.edge <- 2 # nolint ape variable name
all.equal(as.vector(nLTT::get_n_lineages(phylogeny)), c(1, 2, 3))
Run the code above in your browser using DataLab