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

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

Author: jarioksa
Date: 2011-09-13 09:02:28 +0200 (Tue, 13 Sep 2011)
New Revision: 1843

Modified:
   pkg/vegan/R/permutest.cca.R
Log:
very tiny (1%) speed-up in permutest.cca(..., first=TRUE)

Modified: pkg/vegan/R/permutest.cca.R
===================================================================
--- pkg/vegan/R/permutest.cca.R	2011-09-12 20:13:01 UTC (rev 1842)
+++ pkg/vegan/R/permutest.cca.R	2011-09-13 07:02:28 UTC (rev 1843)
@@ -86,7 +86,7 @@
         }
         tmp <- qr.fitted(Q, Y)
         if (first) 
-            cca.ev <- svd(tmp, nv = 0, nu = 0)$d[1]^2
+            cca.ev <- La.svd(tmp, nv = 0, nu = 0)$d[1]^2
         else cca.ev <- sum(tmp * tmp)
         if (isPartial || first) {
             tmp <- qr.resid(Q, Y)