Nothing
id.subtrees <-
function(tree){
if((length(tree$edge.length)-length(tree$tip.label)+1!=length(tree$tip.label)+1)==FALSE)stop("\nTree not fully bifurcating")
tree$node.label<-1:length(subtrees2.6(tree))
return(list(tree=tree,subtree=subtrees2.6(tree)))
}
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.