get_n_lineages {nLTT}

Collect the number of lineages from the stem age

Description

Collect the number of lineages from the stem age

Usage

get_n_lineages(phylogeny)

Arguments

phylogeny

a phylogeny of class 'phylo'

Value

number of lineages, will go from 1 to the number of tips, if there is a stem, will go from 2 to the number of tips if there is no stem

Author(s)

Richèl Bilderbeek

Examples

  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))