[Vegan-commits] r2541 - pkg/vegan/R

[noreply at r-forge.r-project.org]

Author: gsimpson
Date: 2013-07-08 05:18:16 +0200 (Mon, 08 Jul 2013)
New Revision: 2541

Added:
   pkg/vegan/R/plot.ordipointlabel.R
Log:
belated add of plot method for ordipointlabel

Added: pkg/vegan/R/plot.ordipointlabel.R
===================================================================
--- pkg/vegan/R/plot.ordipointlabel.R	                        (rev 0)
+++ pkg/vegan/R/plot.ordipointlabel.R	2013-07-08 03:18:16 UTC (rev 2541)
@@ -0,0 +1,11 @@
+plot.ordipointlabel <- function (x, ...)
+{
+    plot(x$points, pch = x$args$pch, cex = x$args$pcex, col = x$args$pcol,
+        bg = x$args$pbg, 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)
+}