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

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

Author: psolymos
Date: 2009-05-15 23:47:03 +0200 (Fri, 15 May 2009)
New Revision: 823

Modified:
   pkg/vegan/R/taxa2dist.R
Log:
warning returned by any(): fixed

Modified: pkg/vegan/R/taxa2dist.R
===================================================================
--- pkg/vegan/R/taxa2dist.R	2009-05-15 19:38:03 UTC (rev 822)
+++ pkg/vegan/R/taxa2dist.R	2009-05-15 21:47:03 UTC (rev 823)
@@ -37,7 +37,7 @@
             warning("Labels are wrong: needed ", nrow(x), " got ", length(labels))
         attr(out, "Labels") <- as.character(labels)
     }
-    if (!check && any(out) <= 0)
+    if (!check && any(out <= 0))
         warning("you used 'check=FALSE' and some distances are zero -- was this intended?")
     out
 }