[Vegan-commits] r1366 - in pkg/vegan: R inst

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

Author: jarioksa
Date: 2010-11-12 11:26:27 +0100 (Fri, 12 Nov 2010)
New Revision: 1366

Modified:
   pkg/vegan/R/print.cca.R
   pkg/vegan/inst/ChangeLog
Log:
print.cca gives proportions of inertia components

Modified: pkg/vegan/R/print.cca.R
===================================================================
--- pkg/vegan/R/print.cca.R	2010-11-11 09:00:37 UTC (rev 1365)
+++ pkg/vegan/R/print.cca.R	2010-11-12 10:26:27 UTC (rev 1366)
@@ -9,9 +9,10 @@
     cat("\n")
     chi <- c(x$tot.chi, x$pCCA$tot.chi, x$CCA$tot.chi, x$CA$tot.chi,
              x$CA$imaginary.chi)
+    props <- abs(chi)/sum(abs(chi[-1]))
     rnk <- c(NA, x$pCCA$rank, x$CCA$rank, x$CA$rank, x$CA$imaginary.rank)
-    tbl <- cbind(chi, rnk)
-    colnames(tbl) <- c("Inertia", "Rank")
+    tbl <- cbind(chi, props, rnk)
+    colnames(tbl) <- c("Inertia", "Proportion", "Rank")
     rn <- c("Total", "Conditional", "Constrained", "Unconstrained",
             "Imaginary")
     rownames(tbl) <- rn[c(TRUE, !is.null(x$pCCA), !is.null(x$CCA), 

Modified: pkg/vegan/inst/ChangeLog
===================================================================
--- pkg/vegan/inst/ChangeLog	2010-11-11 09:00:37 UTC (rev 1365)
+++ pkg/vegan/inst/ChangeLog	2010-11-12 10:26:27 UTC (rev 1366)
@@ -4,6 +4,9 @@
 
 Version 1.18-16 (opened November 9, 2010)
 
+	* cca/rda/capscale: JO yielded to the pressure, and added
+	proportions of inertia components in the printed output.
+
 	* capscale: failed with na.action -- fix in ordiParseFormula().
 	na.action was introduced in rev1002 (Sept 11, 2009), and then
 	ruined with a change in ordiParseFormula() in rev1007 (Sept 15,