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

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

Author: jarioksa
Date: 2009-06-09 10:08:59 +0200 (Tue, 09 Jun 2009)
New Revision: 858

Modified:
   pkg/vegan/R/capscale.R
   pkg/vegan/inst/ChangeLog
Log:
capscale: rank includes negative axes

Modified: pkg/vegan/R/capscale.R
===================================================================
--- pkg/vegan/R/capscale.R	2009-06-09 07:50:12 UTC (rev 857)
+++ pkg/vegan/R/capscale.R	2009-06-09 08:08:59 UTC (rev 858)
@@ -79,6 +79,7 @@
             names(negax) <- paste("NEG", seq_along(negax), sep="")
             sol$CA$eig <- c(sol$CA$eig, negax)
             sol$CA$tot.chi <- abs(sum(sol$CA$eig))
+            sol$CA$rank <- length(sol$CA$eig)
         }
     }
     if (!is.null(comm)) {

Modified: pkg/vegan/inst/ChangeLog
===================================================================
--- pkg/vegan/inst/ChangeLog	2009-06-09 07:50:12 UTC (rev 857)
+++ pkg/vegan/inst/ChangeLog	2009-06-09 08:08:59 UTC (rev 858)
@@ -11,7 +11,8 @@
 	negative eigenvalues are listed after positive unconstrained
 	eigenvalues, but no scores are given for them. The total inertia
 	and the total unconstrained inertia are now sums of all
-	eigenvalues, including the negative ones.
+	eigenvalues, including the negative ones. The rank includes
+	negative axes.
 
 	* wcmdscale: remove zero eigenvalues, keep negative, and do not
 	assume that the last eigenvalue is zero.