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

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

Author: jarioksa
Date: 2010-09-15 14:17:19 +0200 (Wed, 15 Sep 2010)
New Revision: 1304

Modified:
   pkg/vegan/R/metaMDSdist.R
Log:
zerodist='add' is neither message nor warning but trace

Modified: pkg/vegan/R/metaMDSdist.R
===================================================================
--- pkg/vegan/R/metaMDSdist.R	2010-09-14 08:48:32 UTC (rev 1303)
+++ pkg/vegan/R/metaMDSdist.R	2010-09-15 12:17:19 UTC (rev 1304)
@@ -38,7 +38,8 @@
         else if (zerodist == "add") {
             zero <- min(dis[dis > 0], na.rm = TRUE)/2
             dis[dis <= 0] <- zero
-            message("Zero dissimilarities changed into ", zero)
+            if (trace)
+                cat("Zero dissimilarities changed into ", zero,"\n")
         }
     }
     ## We actually used maxdis to decide whether index has a closed