R/plot.orditkplot.R

In vegan: Community Ecology Package

`plot.orditkplot` <-
    function(x, ...)
{
    op <- par(x$par)
    on.exit(par(op))
    plot(x$points, pch = x$args$pch, cex = x$args$pcex, col = x$args$pcol,
         bg = x$args$pbg, xlim = x$args$xlim, ylim = x$args$ylim, asp=1)
    font <- attr(x$labels, "font")
    if (is.null(font))
        font <- par("font")
    text(x$labels, rownames(x$labels), cex = x$args$tcex,
         col = x$args$tcol, font = font)
    invisible(x)
}