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

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

Author: jarioksa
Date: 2011-01-03 18:07:11 +0100 (Mon, 03 Jan 2011)
New Revision: 1431

Modified:
   pkg/vegan/R/capscale.R
Log:
code clean-up: should not influence results

Modified: pkg/vegan/R/capscale.R
===================================================================
--- pkg/vegan/R/capscale.R	2011-01-03 11:32:29 UTC (rev 1430)
+++ pkg/vegan/R/capscale.R	2011-01-03 17:07:11 UTC (rev 1431)
@@ -76,9 +76,7 @@
     X$points <- adjust * X$points
     if (adjust == 1)
         X$eig <- X$eig/k
-    neig <- min(which(X$eig < 0) - 1, sum(X$eig > EPS))
-    sol <- X$points[, 1:neig]
-    sol <- rda.default(sol, d$Y, d$Z, ...)
+    sol <- rda.default(X$points, d$Y, d$Z, ...)
     if (!is.null(sol$CCA)) {
         colnames(sol$CCA$u) <- colnames(sol$CCA$biplot) <- names(sol$CCA$eig) <-
             colnames(sol$CCA$wa) <- colnames(sol$CCA$v) <-