Nothing
subtree<-function(tree,species_list)
{
# find the MRCA of the species in the list
node<-unique(tree$edge[which(tree$edge[,2] %in% which(tree$tip.label %in% species_list)),1])
subtree<-extract.clade.ln(tree,min(node))
while(sum(!(species_list %in% subtree$tip.label))>0)
{
node<-unique(tree$edge[which(tree$edge[,2] %in% node),1])
subtree<-extract.clade.ln(tree,min(node))
#print(node)
}
root_length<-tree$edge.length[which(tree$edge[,2] == min(node))]
subtree$root.edge<-root_length
return(subtree)}
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.