R/recluster.check.R

Defines functions recluster.check

Documented in recluster.check

recluster.check <-function(tree, tip) {
	ind <- match(tip, tree$tip.label)
	tree$tip.label <- tree$tip.label[ind]
	ind2 <- match(1:length(ind), tree$edge[, 2])
	tree$edge[ind2, 2] <- order(ind)
	tree
}
leondap/recluster documentation built on Nov. 11, 2024, 7:11 a.m.