/working/auteur.extended/R/get.ancestors.R

http://github.com/eastman/auteur · R · 5 lines · 4 code · 1 blank · 0 comment · 0 complexity · 9a83d9c1eadda45cf6a81246989c22e8 MD5 · raw file 

    

  1. get.ancestors<-function(phy) 
    2. 

  2. {
    3. 

  3. 	return(lapply(1:Ntip(phy), function(x) get.ancestors.of.node(x,phy)))
    4. 

  4. }
    5.