get.ancestors.R | searchcode

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

1get.ancestors<-function(phy) 
2{
3	return(lapply(1:Ntip(phy), function(x) get.ancestors.of.node(x,phy)))
4}
5