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

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

Author: jarioksa
Date: 2011-01-05 13:26:59 +0100 (Wed, 05 Jan 2011)
New Revision: 1436

Modified:
   pkg/vegan/R/summary.cca.R
Log:
summary works with Real component in capscale

Modified: pkg/vegan/R/summary.cca.R
===================================================================
--- pkg/vegan/R/summary.cca.R	2011-01-05 12:13:29 UTC (rev 1435)
+++ pkg/vegan/R/summary.cca.R	2011-01-05 12:26:59 UTC (rev 1436)
@@ -28,6 +28,9 @@
     }
     summ$call <- object$call
     summ$tot.chi <- object$tot.chi
+    ## only the Real component for capscale() with negative eigenvalues
+    if (!is.null(object$CA$imaginary.chi))
+        summ$tot.chi <- summ$tot.chi - object$CA$imaginary.chi
     summ$partial.chi <- object$pCCA$tot.chi
     summ$constr.chi <- object$CCA$tot.chi
     summ$unconst.chi <- object$CA$tot.chi