[Vegan-commits] r565 - pkg/R

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

Author: psolymos
Date: 2008-11-16 05:32:59 +0100 (Sun, 16 Nov 2008)
New Revision: 565

Modified:
   pkg/R/permatfull.R
   pkg/R/permatswap.R
Log:
method argument due to swap method diversification


Modified: pkg/R/permatfull.R
===================================================================
--- pkg/R/permatfull.R	2008-11-14 03:22:57 UTC (rev 564)
+++ pkg/R/permatfull.R	2008-11-16 04:32:59 UTC (rev 565)
@@ -70,6 +70,7 @@
     out <- list(call=match.call(), orig=m, perm=perm, specs=specs)
     attr(out, "mtype") <- mtype
     attr(out, "ptype") <- "full"
+    attr(out, "method") <- NA
     attr(out, "fixedmar") <- fixedmar
     attr(out, "times") <- times
     attr(out, "shuffle") <- shuffle

Modified: pkg/R/permatswap.R
===================================================================
--- pkg/R/permatswap.R	2008-11-14 03:22:57 UTC (rev 564)
+++ pkg/R/permatswap.R	2008-11-16 04:32:59 UTC (rev 565)
@@ -138,6 +138,7 @@
     out <- list(call=match.call(), orig=m, perm=perm, specs=specs)
     attr(out, "mtype") <- mtype
     attr(out, "ptype") <- "swap"
+    attr(out, "method") <- method
     attr(out, "fixedmar") <- "both"
     attr(out, "times") <- times
     attr(out, "shuffle") <- NA