Nothing
"cladesize" <-
function(tree) {
if (class(tree)!='treeshape') {
stop("invalid arguments")
}
node=sample(1:nrow(tree$merge),1)
clade=smaller.clade.spectrum(tree)
child.number<-clade[node,1]
child.number
}
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.