Nothing
`plotNodeNumbers.phylo` <-
function(phy)
{
phy$node.label <- (length(phy$tip.label)+1):max(phy$edge);
plot.phylo(phy, show.node.label=TRUE);
}
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.