R/bstick.prcomp.R

Defines functions `bstick.prcomp`

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