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
}

Try the recluster package in your browser

Any scripts or data that you put into this service are public.

recluster documentation built on July 27, 2020, 1:15 a.m.