R/phylo2vectors.R

In franciscorichter/dmea02: Diversification and Macro-Evolution Analysis

Defines functions phylo2vectors

Documented in phylo2vectors

phylo2vectors <- function(tree){
  # to map newick trees into ther xxxx format
  ltt = ltt.plot.coords(tree)
  t = diff(ltt[,1])
  ltt = ltt[-1,]
  n = ltt[,2]
  E = diff(n)
  E[E==-1] = 0
  return(list(wt=t,E=E,n=n))
}