R/coaltime.R

`coaltime` <-
function(inode,jnode,nodematrix,nspecies)
{
    mrca<-mrca.2nodes(inode,jnode,nodematrix)$anc
    return(node.height(mrca,nodematrix,nspecies))

}
bomeara/phybase documentation built on May 12, 2019, 11:35 p.m.