R/replaceTiplabel.R

replaceTiplabel <- function (Tree, Newlabel = "Tip") {
  Tree$tip.label <- paste(rep(paste(Newlabel, 1:Ntip(Tree), ".1", sep = "")))
  Tree$tip.label <- sample(Tree$tip.label)
  return(Tree)
}
thauffe/TraitGmyc documentation built on July 4, 2021, 7:37 a.m.