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

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

Author: jarioksa
Date: 2011-08-29 09:36:07 +0200 (Mon, 29 Aug 2011)
New Revision: 1771

Modified:
   pkg/vegan/R/meandist.R
Log:
careless copy/paste from another function

Modified: pkg/vegan/R/meandist.R
===================================================================
--- pkg/vegan/R/meandist.R	2011-08-28 19:23:40 UTC (rev 1770)
+++ pkg/vegan/R/meandist.R	2011-08-29 07:36:07 UTC (rev 1771)
@@ -2,7 +2,7 @@
     function(dist, grouping, ...)
 {
     ## check that 'dist' are dissimilarities (non-negative)
-    if (any(x < -sqrt(.Machine$double.eps)))
+    if (any(dist < -sqrt(.Machine$double.eps)))
         warning("some dissimilarities are negative -- is this intentional?")
     ## merge levels so that lower is always first (filling lower triangle)
     mergenames <- function(X, Y, ...) {