[Vegan-commits] r566 - pkg/R

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

Author: psolymos
Date: 2008-11-16 05:40:58 +0100 (Sun, 16 Nov 2008)
New Revision: 566

Modified:
   pkg/R/print.permat.R
   pkg/R/print.summary.permat.R
Log:
method returned


Modified: pkg/R/print.permat.R
===================================================================
--- pkg/R/print.permat.R	2008-11-16 04:32:59 UTC (rev 565)
+++ pkg/R/print.permat.R	2008-11-16 04:40:58 UTC (rev 566)
@@ -7,6 +7,8 @@
     cat("Object of class 'permat'\n\nCall: ")
     print(x$call)
     cat("\nMatrix type:", attr(x, "mtype"), "\nPermutation type:", attr(x, "ptype"))
+    if (attr(x, "ptype") == "swap")
+        cat("\nMethod:", attr(x, "method"))
     cat("\nRestricted:", restr, "\nFixed margins:", attr(x, "fixedmar"))
     if (!is.na(attr(x, "shuffle"))) {
         if (attr(x, "shuffle")=="ind") cat("\nIndividuals")

Modified: pkg/R/print.summary.permat.R
===================================================================
--- pkg/R/print.summary.permat.R	2008-11-16 04:32:59 UTC (rev 565)
+++ pkg/R/print.summary.permat.R	2008-11-16 04:40:58 UTC (rev 566)
@@ -9,6 +9,8 @@
     cat("Summary of object of class 'permat'\n\nCall: ")
     print(x$call)
     cat("\nMatrix type:", attr(x, "mtype"), "\nPermutation type:", attr(x, "ptype"))
+    if (attr(x, "ptype") == "swap")
+        cat("\nMethod:", attr(x, "method"))
     cat("\nRestricted:", restr, "\nFixed margins:", attr(x, "fixedmar"))
     if (!is.na(attr(x, "shuffle"))) {
         if (attr(x, "shuffle")=="ind") cat("\nIndividuals")