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
}
pattakosn/Rworkshop documentation built on May 24, 2019, 8:22 p.m.