[Vegan-commits] r1668 - in pkg/vegan: R inst

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

Author: jarioksa
Date: 2011-07-01 14:38:01 +0200 (Fri, 01 Jul 2011)
New Revision: 1668

Modified:
   pkg/vegan/R/print.metaMDS.R
   pkg/vegan/R/print.monoMDS.R
   pkg/vegan/inst/ChangeLog
Log:
print info on using stress type 2 for monoMDS

Modified: pkg/vegan/R/print.metaMDS.R
===================================================================
--- pkg/vegan/R/print.metaMDS.R	2011-07-01 12:11:19 UTC (rev 1667)
+++ pkg/vegan/R/print.metaMDS.R	2011-07-01 12:38:01 UTC (rev 1668)
@@ -11,6 +11,8 @@
     cat("Distance:", x$distance, "\n\n")
     cat("Dimensions:", x$ndim, "\n")
     cat("Stress:    ", x$stress, "\n")
+    if (inherits(x, "monoMDS") && x$isform == 2)
+        cat("(stress type 2)\n")
     if (x$converged) 
         cat("Two convergent solutions found after", x$tries, 
             "tries\n")

Modified: pkg/vegan/R/print.monoMDS.R
===================================================================
--- pkg/vegan/R/print.monoMDS.R	2011-07-01 12:11:19 UTC (rev 1667)
+++ pkg/vegan/R/print.monoMDS.R	2011-07-01 12:38:01 UTC (rev 1668)
@@ -14,7 +14,7 @@
     cat("Dimensions:", x$ndim, "\n")
     cat("Stress:    ", x$stress)
     if (x$isform == 2)
-        cat("(type 2)")
+        cat(" (type 2)")
     cat("\n")
     stoplab <- switch(x$icause,
                       "Maximum number of iteration reached",

Modified: pkg/vegan/inst/ChangeLog
===================================================================
--- pkg/vegan/inst/ChangeLog	2011-07-01 12:11:19 UTC (rev 1667)
+++ pkg/vegan/inst/ChangeLog	2011-07-01 12:38:01 UTC (rev 1668)
@@ -18,7 +18,8 @@
 	and they were realized.
 
 	* monoMDS: text for a proper help (Rd file). Other help files
-	updated for monoMDS.
+	updated for monoMDS. Stress type 2 is printed both in monoMDS and
+	metaMDS. 
 
 Version 1.18-33 (closed June 21, 2011)