rescale only monoMDS result: fixes issue #310

(cherry picked from commit 8ad3e80)
vegandevs · Apr 6, 2019 · d115d75 · d115d75
1 parent 9c680df
commit d115d75
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/metaMDS.R b/R/metaMDS.R
@@ -59,7 +59,8 @@
         cat(">>> Post-processing NMDS\n")
     points <- postMDS(out$points, dis, plot = max(0, plot - 1), ...)
     ## rescale monoMDS scaling if postMDS scaled 'points'
-    if (!is.null(scl <- attr(points, "internalscaling"))) {
+    if (engine == "monoMDS" &&
+        !is.null(scl <- attr(points, "internalscaling"))) {
         out$dist <- out$dist/scl
         out$dhat <- out$dhat/scl
     }