R/nonmonophyletic.R

Defines functions nonmonophyletic

nonmonophyletic <- function(phy, nodes){
  
  mrca <- noi(phy, nodes)
  ext <- descendants(phy, mrca)
  ext <- setdiff(ext, nodes)
  
  ext
}
heibl/megaptera documentation built on Jan. 17, 2021, 3:34 a.m.