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
}
vegandevs/vegan documentation built on March 24, 2024, 3:14 p.m.