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

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

Author: jarioksa
Date: 2010-04-29 16:35:45 +0200 (Thu, 29 Apr 2010)
New Revision: 1181

Modified:
   pkg/vegan/R/RsquareAdj.R
   pkg/vegan/inst/ChangeLog
Log:
RsquareAdj.rda used wrong model df in rank deficit models

Modified: pkg/vegan/R/RsquareAdj.R
===================================================================
--- pkg/vegan/R/RsquareAdj.R	2010-04-15 19:02:16 UTC (rev 1180)
+++ pkg/vegan/R/RsquareAdj.R	2010-04-29 14:35:45 UTC (rev 1181)
@@ -19,7 +19,7 @@
     function(x, ...)
 {
     R2 <- x$CCA$tot.chi/x$tot.chi
-    m <- x$CCA$rank
+    m <- x$CCA$qrank
     n <- nrow(x$CCA$u)
     if (is.null(x$pCCA))
         radj <- RsquareAdj(R2, n, m)
@@ -33,7 +33,7 @@
     function(x, ...)
 {
     R2 <- x$CCA$tot.chi/x$tot.chi
-    m <- x$CCA$rank
+    m <- x$CCA$qrank
     n <- nrow(x$CCA$u)
     radj <- NA
     list(r.squared = R2, adj.r.squared = radj)

Modified: pkg/vegan/inst/ChangeLog
===================================================================
--- pkg/vegan/inst/ChangeLog	2010-04-15 19:02:16 UTC (rev 1180)
+++ pkg/vegan/inst/ChangeLog	2010-04-29 14:35:45 UTC (rev 1181)
@@ -4,6 +4,9 @@
 
 Version 1.18-4 (opened April 15, 2010)
 
+	* RsquareAdj.rda: uses now correct model df in rank deficit RDA
+	models. 
+
 	* adonis: implemented tie handling in permutations. 
 
 	* predict.cca/rda: implemented 'newdata' for type =