[Vegan-commits] r304 - in pkg: R inst

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

Author: jarioksa
Date: 2008-04-06 20:02:19 +0200 (Sun, 06 Apr 2008)
New Revision: 304

Modified:
   pkg/R/plot.cca.R
   pkg/inst/ChangeLog
Log:
plot.cca returns the scaling of the biplot arrow as an attribute of 'biplot' component of the invisible 'ordiplot' object

Modified: pkg/R/plot.cca.R
===================================================================
--- pkg/R/plot.cca.R	2008-04-06 17:33:12 UTC (rev 303)
+++ pkg/R/plot.cca.R	2008-04-06 18:02:19 UTC (rev 304)
@@ -60,6 +60,7 @@
             mul <- ordiArrowMul(g$biplot)
         }
         else mul <- 1
+        attr(g$biplot, "arrow.mul") <- mul
         arrows(0, 0, mul * g$biplot[, 1], mul * g$biplot[, 2], 
                len = 0.05, col = "blue")
         text(1.1 * mul * g$biplot, rownames(g$biplot), col = "blue")
@@ -82,3 +83,4 @@
     class(g) <- "ordiplot"
     invisible(g)
 }
+

Modified: pkg/inst/ChangeLog
===================================================================
--- pkg/inst/ChangeLog	2008-04-06 17:33:12 UTC (rev 303)
+++ pkg/inst/ChangeLog	2008-04-06 18:02:19 UTC (rev 304)
@@ -10,6 +10,10 @@
 	now, and shifted origin 'at = c(1,1)' taken into account in
 	plot.envfit. 
 
+	* plot.cca: scaling used for biplot arrows is returned as an
+	attribute to the 'biplot' item in the 'ordiplot' object (but this
+	attribute is not used for anything useful yet).
+
 	* summary.cca: contributions of eigenvalues accumulated for
 	constrained and unconstrained axes, and separately (new) for
 	constrained axes.