R/bstick.default.R

Defines functions `bstick.default`

`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 Sept. 11, 2024, 7:57 p.m.