R/scores.pcnm.R

Defines functions `scores.pcnm`

`scores.pcnm` <-
    function(x, choices, ...)
{
    if (missing(choices))
        x$vectors
    else
        x$vectors[, choices]
}
vegandevs/vegan documentation built on Sept. 1, 2024, 8:22 p.m.