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

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

Author: jarioksa
Date: 2009-12-13 17:41:11 +0100 (Sun, 13 Dec 2009)
New Revision: 1077

Modified:
   pkg/vegan/R/goodness.cca.R
   pkg/vegan/inst/ChangeLog
Log:
fix predict.cca which has been always wrong

Modified: pkg/vegan/R/goodness.cca.R
===================================================================
--- pkg/vegan/R/goodness.cca.R	2009-11-29 16:04:14 UTC (rev 1076)
+++ pkg/vegan/R/goodness.cca.R	2009-12-13 16:41:11 UTC (rev 1077)
@@ -10,7 +10,7 @@
         stop("model ", model, " is not available")
     statistic <- match.arg(statistic)
     display <- match.arg(display)
-    cs <- ifelse(display == "species", object$colsum, object$rowsum)
+    cs <- if(display == "species") object$colsum else object$rowsum
     if (display == "species") {
         if (is.null(object$CCA)) 
             Xbar <- object$CA$Xbar

Modified: pkg/vegan/inst/ChangeLog
===================================================================
--- pkg/vegan/inst/ChangeLog	2009-11-29 16:04:14 UTC (rev 1076)
+++ pkg/vegan/inst/ChangeLog	2009-12-13 16:41:11 UTC (rev 1077)
@@ -2,8 +2,13 @@
 
 VEGAN DEVEL VERSIONS at http://r-forge.r-project.org/
 
-Version 1.16-33 (opened November 13, 2009)
+Version 1.16-34 (opened December 13, 2009) -- (codename: Lucia)
 
+	* goodness.cca: was not using correct weights and the results have
+	been *always* wrong.
+	
+Version 1.16-33 (closed December 13, 2009)
+
 	* DESCRIPTION: Guillaume Blanchet added to the Authors. 
 
 	* spandepth: New function to find the depths of nodes in a