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

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

Author: jarioksa
Date: 2010-12-01 11:52:03 +0100 (Wed, 01 Dec 2010)
New Revision: 1382

Modified:
   pkg/vegan/R/fitted.procrustes.R
Log:
thinko: predict.procrustes need no 'scale' with 'truemean = FALSE'

Modified: pkg/vegan/R/fitted.procrustes.R
===================================================================
--- pkg/vegan/R/fitted.procrustes.R	2010-12-01 10:28:04 UTC (rev 1381)
+++ pkg/vegan/R/fitted.procrustes.R	2010-12-01 10:52:03 UTC (rev 1382)
@@ -22,6 +22,6 @@
     ## translation: always
     Y <- sweep(Y, 2, object$translation, "+")
     if (!truemean)
-        Y <- sweep(Y, 2, object$xmean*object$scale, "-")
+        Y <- sweep(Y, 2, object$xmean, "-")
     Y
 }