# reset taxa numbers
resetTipNum <- function(phy){
cond <- is.element(phy$edge[,2], 0:Ntip(phy))
phy$edge[cond, 2] <- phy$edge[cond, 2] + 1
return(phy)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.