[Vegan-commits] r420 - branches/1.13/R pkg/R

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

Author: jarioksa
Date: 2008-06-11 08:37:29 +0200 (Wed, 11 Jun 2008)
New Revision: 420

Modified:
   branches/1.13/R/ordispider.R
   pkg/R/ordispider.R
Log:
ordiArgAbsorber overlooked one segments() in ordispider

Modified: branches/1.13/R/ordispider.R
===================================================================
--- branches/1.13/R/ordispider.R	2008-06-11 06:36:07 UTC (rev 419)
+++ branches/1.13/R/ordispider.R	2008-06-11 06:37:29 UTC (rev 420)
@@ -6,7 +6,8 @@
     if (inherits(ord, "cca") && missing(groups)) {
         lc <- scores(ord, display = "lc", ...)
         wa <- scores(ord, display = "wa", ...)
-        segments(lc[, 1], lc[, 2], wa[, 1], wa[, 2], ...)
+        ordiArgAbsorber(lc[, 1], lc[, 2], wa[, 1], wa[, 2],
+                        FUN = segments, ...)
         return(invisible())
     }
     pts <- scores(ord, display = display, ...)

Modified: pkg/R/ordispider.R
===================================================================
--- pkg/R/ordispider.R	2008-06-11 06:36:07 UTC (rev 419)
+++ pkg/R/ordispider.R	2008-06-11 06:37:29 UTC (rev 420)
@@ -6,7 +6,8 @@
     if (inherits(ord, "cca") && missing(groups)) {
         lc <- scores(ord, display = "lc", ...)
         wa <- scores(ord, display = "wa", ...)
-        segments(lc[, 1], lc[, 2], wa[, 1], wa[, 2], ...)
+        ordiArgAbsorber(lc[, 1], lc[, 2], wa[, 1], wa[, 2],
+                        FUN = segments, ...)
         return(invisible())
     }
     pts <- scores(ord, display = display, ...)