R/termBL.R

Defines functions termBL

termBL <- function(phylo){
	tipLab <- phylo$tip.label
	TBind <- match(1:length(tipLab), phylo$edge[,2])
	brLengths <- phylo$edge.length[TBind]
	names(brLengths) <- tipLab
	brLengths
}

Try the spiderDev package in your browser

Any scripts or data that you put into this service are public.

spiderDev documentation built on May 2, 2019, 5:23 p.m.