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

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

Author: jarioksa
Date: 2009-06-03 14:02:01 +0200 (Wed, 03 Jun 2009)
New Revision: 854

Modified:
   pkg/vegan/R/print.capscale.R
Log:
capscale prints info on negative eigenvalues since there is no longer a warning duiring calculations

Modified: pkg/vegan/R/print.capscale.R
===================================================================
--- pkg/vegan/R/print.capscale.R	2009-06-02 16:57:07 UTC (rev 853)
+++ pkg/vegan/R/print.capscale.R	2009-06-03 12:02:01 UTC (rev 854)
@@ -2,6 +2,8 @@
     function(x, ...)
 {
     NextMethod("print", x, ...)
+    if (any(x$CA$eig < 0))
+        cat("NB. Some eigenvalues are negative\n\n")
     if (!is.null(x$metaMDSdist))
         cat("metaMDSdist transformed data:", x$metaMDSdist, "\n\n") 
 }