R/bstick.default.R

`bstick.default` <-
    function(n, tot.var = 1, ...)
{
    res <- rev(cumsum(tot.var/n:1)/n)
    names(res) <- paste("Stick", seq(len=n), sep="")
    res
}

Try the vegan package in your browser

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

vegan documentation built on May 2, 2019, 5:51 p.m.