[Vegan-commits] r441 - pkg/R

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

Author: gsimpson
Date: 2008-07-05 18:27:01 +0200 (Sat, 05 Jul 2008)
New Revision: 441

Modified:
   pkg/R/print.permControl.R
Log:
fix-up print method for permControl to reflect change in 'type' argument and new 'permute.strata' argument.

Modified: pkg/R/print.permControl.R
===================================================================
--- pkg/R/print.permControl.R	2008-07-05 14:52:49 UTC (rev 440)
+++ pkg/R/print.permControl.R	2008-07-05 16:27:01 UTC (rev 441)
@@ -4,7 +4,7 @@
     stopifnot(class(x) == "permControl")
     ## set-up the messages we wish to print
     if (!is.null(x$strata)) {
-        if(x$type == "strata")
+        if(x$permute.strata)
             msg.strata <- paste("Permutations stratified between '",
                                 x$name.strata, "'\n", sep = "")
         else