R/orgltext.R

`orgltext` <-
    function (object, text, display = "sites", choices = 1:3,
              adj = 0.5, col = "black", ...)
{
    x <- scores(object, display = display, choices = choices, 
                ...)
    if (missing(text)) 
        text <- rownames(x)
    ## colors
    if (is.factor(col))
        col <- as.numeric(col)
    col <- rep(col, length = nrow(x))
    rgl.texts(x[, 1], x[, 2], x[, 3], text, adj = adj,  col = col, ...)
    invisible()
}

Try the vegan3d package in your browser

Any scripts or data that you put into this service are public.

vegan3d documentation built on May 2, 2019, 2:44 a.m.