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

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

Author: jarioksa
Date: 2013-07-12 14:19:57 +0200 (Fri, 12 Jul 2013)
New Revision: 2561

Modified:
   pkg/vegan/R/metaMDSiter.R
Log:
metaMDS(..., trace=2, previous.best=) prints nothing for the trace of Run 0

Modified: pkg/vegan/R/metaMDSiter.R
===================================================================
--- pkg/vegan/R/metaMDSiter.R	2013-07-11 11:44:52 UTC (rev 2560)
+++ pkg/vegan/R/metaMDSiter.R	2013-07-12 12:19:57 UTC (rev 2561)
@@ -17,6 +17,8 @@
     isotrace <- max(0, trace - 1)
     monotrace <- engine == "monoMDS" && trace > 1
     monostop <- function(mod) {
+        if (mod$maxits == 0)
+            return(NULL)
         lab <- switch(mod$icause,
                       "no. of iterations >= maxit",
                       "stress < smin",