R/pathLengths.R

Defines functions pathLengths

pathLengths <- function(phy){
  nodes <- dist.nodes(phy)[Ntip(phy)+1,1:Ntip(phy)]
  names(nodes) <- phy$tip.label
  return(nodes)
}
manabusakamoto/evoldiver documentation built on March 9, 2024, 9:56 a.m.