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

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

Author: jarioksa
Date: 2013-02-27 20:35:21 +0100 (Wed, 27 Feb 2013)
New Revision: 2454

Modified:
   pkg/vegan/R/specaccum.R
Log:
specaccum was wrongly returning wrong weights when 'w' was not given

Modified: pkg/vegan/R/specaccum.R
===================================================================
--- pkg/vegan/R/specaccum.R	2013-02-27 13:08:24 UTC (rev 2453)
+++ pkg/vegan/R/specaccum.R	2013-02-27 19:35:21 UTC (rev 2454)
@@ -94,7 +94,7 @@
     })
     out <- list(call = match.call(), method = method, sites = sites,
                 richness = specaccum, sd = sdaccum, perm = perm)
-    if (!is.null(weights))
+    if (!is.null(w))
         out$weights <- weights
     if (method == "rarefaction")
         out$individuals <- ind