R/ancestor.R

In bcm-uga/apTreeshape: Analyses of Phylogenetic Treeshape

Defines functions ancestor

Documented in ancestor

ancestor <- function(tree, i){
which( (tree$merge[,1] == i) | (tree$merge[,2] == i) ) 
}