Nothing
free <-
function(giventree, node) {
if (giventree[node, 4]!=0) giventree <- free(giventree, giventree[node, 4])
if (giventree[node, 5]!=0) giventree <- free(giventree, giventree[node, 5])
giventree[node, 4] <- 0
giventree[node, 5] <- 0
giventree
}
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.