Nothing
nodeDesc <- function(tr, node, tips.only = TRUE){
Ntip <- length(tr$tip.label)
desc <- descNod <- tr$edge[tr$edge[, 1] == node , 2]
descNod <- descNod[descNod > Ntip]
while(length(descNod) > 0){
descNod <- as.vector(sapply(descNod, function(x)tr$edge[tr$edge[, 1] == x, 2]))
desc <- c(desc, descNod)
descNod <- descNod[descNod > Ntip]
}
if(tips.only) desc[desc <= Ntip] else desc
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.