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

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

Author: jarioksa
Date: 2013-02-05 18:31:21 +0100 (Tue, 05 Feb 2013)
New Revision: 2414

Modified:
   pkg/vegan/R/predict.rda.R
Log:
predict.capscale uses data adjustment returned instead of wrongly assuming the sqrt(nrows)

Modified: pkg/vegan/R/predict.rda.R
===================================================================
--- pkg/vegan/R/predict.rda.R	2013-02-05 15:20:38 UTC (rev 2413)
+++ pkg/vegan/R/predict.rda.R	2013-02-05 17:31:21 UTC (rev 2414)
@@ -33,7 +33,7 @@
             if (!is.null(object$pCCA))
                 warning("Conditional ('partial') component ignored")
             if (take > 0) {
-                out <- u %*% slam/sqrt(nr)
+                out <- u %*% slam/object$adjust
                 if (type == "response") {
                     out <- dist(out)
                     if (!is.null(object$ac))