R/bstick.princomp.R

Defines functions `bstick.princomp`

`bstick.princomp` <-
    function(n, ...)
{
    if(!inherits(n, "princomp"))
        stop("'n' not of class \"princomp\"")
    tot.chi <- sum(n$sdev^2)
    n.comp <- length(n$sdev)
    res <- bstick.default(n.comp, tot.chi, ...)
    names(res) <- dimnames(n$loadings)[[2]]
    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.