Nothing
cuttree<-function(tree,cuttime){
ages<-age.nodes(tree)
height<-max(ages)
finaltreeheight<-height-cuttime
for (i in length(tree$tip.label):1){
ages<-age.nodes(tree)
help<-which(tree$edge[,2]==i)
parent<-tree$edge[help,1]
if (ages[i]<cuttime){
if (ages[parent]<cuttime){
tree<-drop.tip(tree,i)
} else {
tree$edge.length[help]<-ages[parent]-cuttime
}
}
}
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.