Nothing
get.groups<-function(tree,S,xcut=0){
if (xcut>0) {groups<-cbind(xcut,S)} else {
ages<-vector()
for (i in 1:length(S)){
index<-which(tree$edge[,2]==i)
temp<-tree$edge.length[index]
ages<-c(ages,temp)
}
groups<-cbind(ages,S)}
groups
}
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.