R/orglpoints.R

In vegandevs/vegan3d: Static and Dynamic 3D and Editable Interactive Plots for the 'vegan' Package

`orglpoints` <-
    function (object, display = "sites", choices = 1:3, radius, col = "black",
              ...)
{
    x <- scores(object, display = display, choices = choices, ...)
    ## default radius
    if (missing(radius))
        radius <- max(apply(x, 2, function(z) diff(range(z))))/100
    ## honor cex
    cex <- match.call(expand.dots = FALSE)$...$cex
    if (!is.null(cex))
        radius <- cex * radius
    ## make a color vector, handle factors
    if (is.factor(col))
        col <- as.numeric(col)
    col <- rep(col, length = nrow(x))
    spheres3d(x, radius = radius, col = col, ...)
    invisible()
}