[Vegan-commits] r2971 - pkg/vegan/R

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

Author: jarioksa
Date: 2015-10-15 14:42:28 +0200 (Thu, 15 Oct 2015)
New Revision: 2971

Modified:
   pkg/vegan/R/ordiellipse.R
Log:
Merge branch 'cran-2.3' into r-forge-svn-local

Modified: pkg/vegan/R/ordiellipse.R
===================================================================
--- pkg/vegan/R/ordiellipse.R	2015-10-09 06:01:44 UTC (rev 2970)
+++ pkg/vegan/R/ordiellipse.R	2015-10-15 12:42:28 UTC (rev 2971)
@@ -42,7 +42,7 @@
             W <- w[gr]
             mat <- cov.wt(X, W)
             if (kind == "se")
-                mat$cov <- mat$cov/mat$n.obs
+                mat$cov <- mat$cov * sum(mat$wt^2)
             if (missing(conf))
                 t <- 1
             else t <- sqrt(qchisq(conf, 2))