R/scores.orditkplot.R

`scores.orditkplot` <-
    function(x, display, ...)
{
    if (!missing(display) && !is.na(pmatch(display, "labels")))
        x$labels
    else
        x$points
}
pattakosn/Rworkshop documentation built on May 24, 2019, 8:22 p.m.