R/prune2data.R

Defines functions prune2data

Documented in prune2data

prune2data<-function(tree,species){
if(is(tree,"phylo")==FALSE) stop("Tree must be of class phylo")
allnames<-c(species,tree$tip.label)
droplist<-which(!tree$tip.label%in%species)
drop<-tree$tip.label[droplist]
redtree<-drop.tip(tree,drop)
redtree
}
kevinarbuckle/windex documentation built on Feb. 9, 2025, 7:03 p.m.