[Vegan-commits] r396 - pkg/R

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

Author: jarioksa
Date: 2008-06-05 05:39:30 +0200 (Thu, 05 Jun 2008)
New Revision: 396

Modified:
   pkg/R/print.cca.R
Log:
rda/cca/capscale: issue a warning when the rank of constraints + conditions > rank of depenent data

Modified: pkg/R/print.cca.R
===================================================================
--- pkg/R/print.cca.R	2008-06-05 03:38:58 UTC (rev 395)
+++ pkg/R/print.cca.R	2008-06-05 03:39:30 UTC (rev 396)
@@ -5,6 +5,8 @@
         warning("this is an ade4 object which vegan cannot handle")
         x <- ade2vegancca(x)
     }
+    if (x$CCA$rank < x$CCA$QR$rank)
+        warning("rank of constraints higher than the rank of dependent data\nvegan may not handle this -- wait for a bug fix release", call. = FALSE)
     cat("\nCall:\n")
     cat(deparse(x$call), "\n\n")
     chi <- rbind(x$tot.chi, x$pCCA$tot.chi, x$CCA$tot.chi, x$CA$tot.chi)
@@ -37,3 +39,4 @@
     cat("\n")
     invisible(x)
 }
+