R/KillAllDuplicates.R

In bomeara/prepotol: Prepares trees for uploading to Open Tree of Life

KillAllDuplicates <- function(phy) {
	taxon.counts <- sort(table(phy$tip.label))
	if(length(which(taxon.counts>1))>0) {
		taxa.to.kill <- names(taxon.counts[which(taxon.counts>1)])
		phy <- drop.tip(phy, taxa.to.kill)
	}
	return(phy)
}