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

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

Author: jarioksa
Date: 2009-07-04 08:58:07 +0200 (Sat, 04 Jul 2009)
New Revision: 885

Modified:
   pkg/vegan/R/wcmdscale.R
Log:
wcmdscale: emacs didn't save the last tiny change, but here it comes

Modified: pkg/vegan/R/wcmdscale.R
===================================================================
--- pkg/vegan/R/wcmdscale.R	2009-07-04 06:56:07 UTC (rev 884)
+++ pkg/vegan/R/wcmdscale.R	2009-07-04 06:58:07 UTC (rev 885)
@@ -34,7 +34,7 @@
     ## If 'k' not given, find it as the number of positive
     ## eigenvalues, and also save negative eigenvalues
     negaxes <- NULL
-    if (missing(k) || k > sum(e$values > ZERO)) {
+    if (missing(k) || k > sum(e$) {
         k <- sum(e$values > ZERO)
         if (any(e$values < 0))
             negaxes <- points[, e$values < 0, drop = FALSE]