R/scores.pcnm.R

`scores.pcnm` <-
    function(x, choices, ...)
{
    if (missing(choices))
        x$vectors
    else
        x$vectors[, choices]
}
pattakosn/Rworkshop documentation built on May 24, 2019, 8:22 p.m.