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

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

Author: jarioksa
Date: 2013-05-13 09:44:33 +0200 (Mon, 13 May 2013)
New Revision: 2502

Modified:
   pkg/vegan/R/veganMahatrans.R
Log:
use 'symmetric' eigen analysis in veganMahatrans

Modified: pkg/vegan/R/veganMahatrans.R
===================================================================
--- pkg/vegan/R/veganMahatrans.R	2013-05-05 17:36:48 UTC (rev 2501)
+++ pkg/vegan/R/veganMahatrans.R	2013-05-13 07:44:33 UTC (rev 2502)
@@ -12,7 +12,7 @@
     n <- nrow(x)
     if (missing(s2))
         s2 <- cov(x) 
-    e <- eigen(s2)
+    e <- eigen(s2, symmetric = TRUE)
     k <- e$values > tol
     sisqr <- e$vectors[,k, drop=FALSE] %*%
         (sqrt(1/e$values[k]) * t(e$vectors[,k, drop = FALSE]))