[Vegan-commits] r2792 - pkg/vegan/R

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

Author: jarioksa
Date: 2013-12-01 18:17:05 +0100 (Sun, 01 Dec 2013)
New Revision: 2792

Modified:
   pkg/vegan/R/anovacca.byterm.R
Log:
anovacca(..., by=...) cases use howHead

Modified: pkg/vegan/R/anovacca.byterm.R
===================================================================
--- pkg/vegan/R/anovacca.byterm.R	2013-12-01 17:07:03 UTC (rev 2791)
+++ pkg/vegan/R/anovacca.byterm.R	2013-12-01 17:17:05 UTC (rev 2792)
@@ -35,7 +35,8 @@
     rownames(out) <- c(trmlab, "Residual")
     head <- paste0("Permutation test for ", object$method, " under ",
                    model, " model\n",
-                   "Terms added sequentially (first to last)")
+                   "Terms added sequentially (first to last)\n",
+                   howHead(attr(permutations, "control")))
     mod <- paste("Model:", c(object$call))
     attr(out, "heading") <- c(head, mod)
     class(out) <- c("anova","data.frame")
@@ -93,7 +94,8 @@
     rownames(out) <- c(trmlab, "Residual")
     head <- paste0("Permutation test for ", object$method, " under ",
                    mods[[1]]$model, " model\n",
-                   "Marginal effects of terms")
+                   "Marginal effects of terms\n",
+                   howHead(attr(permutations, "control")))
     mod <- paste("Model:", c(object$call))
     attr(out, "heading") <- c(head, mod)
     class(out) <- c("anova", "data.frame")
@@ -152,7 +154,8 @@
     colnames(out) <- c("Df", "Chisq", "F", "Pr(>F)")
     head <- paste0("Permutation test for ", object$method, " under ",
                    model, " model\n",
-                   "Marginal tests for axes")
+                   "Marginal tests for axes\n",
+                   howHead(attr(permutations, "control")))
     mod <- paste("Model:", c(object$call))
     attr(out, "heading") <- c(head, mod)
     class(out) <- c("anova", "data.frame")