[Vegan-commits] r282 - pkg/R

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

Author: jarioksa
Date: 2008-03-24 11:43:27 +0100 (Mon, 24 Mar 2008)
New Revision: 282

Modified:
   pkg/R/metaMDS.R
   pkg/R/print.metaMDS.R
Log:
metaMDS print tells now whether species scores are based on transformed or original data

Modified: pkg/R/metaMDS.R
===================================================================
--- pkg/R/metaMDS.R	2008-03-24 06:48:43 UTC (rev 281)
+++ pkg/R/metaMDS.R	2008-03-24 10:43:27 UTC (rev 282)
@@ -24,6 +24,7 @@
         if (!old.wa)
             comm <- eval.parent(parse(text=attr(dis, "commname")))
         wa <- wascores(points, comm, expand = expand)
+        attr(wa, "old.wa") <- old.wa
     }
     else
         wa <- NA

Modified: pkg/R/print.metaMDS.R
===================================================================
--- pkg/R/print.metaMDS.R	2008-03-24 06:48:43 UTC (rev 281)
+++ pkg/R/print.metaMDS.R	2008-03-24 10:43:27 UTC (rev 282)
@@ -25,9 +25,14 @@
     } else {
         spattr <- attr(x$species, "shrinkage")
         if (is.null(spattr))
-            cat("Species: non-expanded scores\n")
+            cat("Species: non-expanded scores ")
         else
-            cat("Species: expanded scores\n")
+            cat("Species: expanded scores ")
+        if(attr(x$species, "old.wa"))
+            cat("based on untransformed data\n")
+        else
+            cat("based on", x$data, "\n")
+        
     }
     cat("\n")
     invisible(x)