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

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

Author: jarioksa
Date: 2012-05-24 10:35:23 +0200 (Thu, 24 May 2012)
New Revision: 2181

Modified:
   pkg/vegan/R/monoMDS.R
Log:
an if() statement was accidentally dropped

Modified: pkg/vegan/R/monoMDS.R
===================================================================
--- pkg/vegan/R/monoMDS.R	2012-05-23 21:49:43 UTC (rev 2180)
+++ pkg/vegan/R/monoMDS.R	2012-05-24 08:35:23 UTC (rev 2181)
@@ -91,6 +91,7 @@
     }
     ## ndis: number of >0 dissimilarities (distinct points)
     ndis <- length(dist)
+    if (ndis <= k * nobj)
         warning(gettextf("Not enough data: you have %d dissimilarities >0,\n  and you ask %d scores (%d dimensions times %d points)",
                          ndis, k * nobj, k, nobj))
     ## starting configuration