Nothing
nb.feuilles <-
function(noeud)
{
nb.feuilles <- 0
if (class(noeud) == "f.spodt")
{
nb.feuilles <- nb.feuilles + 1
}
else
{
nb.feuilles <- nb.feuilles(noeud@fg) + nb.feuilles(noeud@fd)
}
return(nb.feuilles)
}
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.