R/nb.feuilles.R

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)
}

Try the SPODT package in your browser

Any scripts or data that you put into this service are public.

SPODT documentation built on May 2, 2019, 9:43 a.m.