[Vegan-commits] r1247 - in pkg/vegan: R inst

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

Author: jarioksa
Date: 2010-08-12 09:31:44 +0200 (Thu, 12 Aug 2010)
New Revision: 1247

Modified:
   pkg/vegan/R/adonis.R
   pkg/vegan/R/print.adonis.R
   pkg/vegan/inst/ChangeLog
Log:
print.adonis uses print.anova

Modified: pkg/vegan/R/adonis.R
===================================================================
--- pkg/vegan/R/adonis.R	2010-07-22 12:47:27 UTC (rev 1246)
+++ pkg/vegan/R/adonis.R	2010-08-12 07:31:44 UTC (rev 1247)
@@ -98,6 +98,7 @@
     rownames(tab) <- c(attr(attr(rhs.frame, "terms"), "term.labels")[u.grps],
                        "Residuals", "Total")
     colnames(tab)[ncol(tab)] <- "Pr(>F)"
+    class(tab) <- c("anova", class(tab))
     out <- list(aov.tab = tab, call = match.call(), 
                 coefficients = beta.spp, coef.sites = beta.sites,
                 f.perms = f.perms, model.matrix = rhs, terms = Terms)

Modified: pkg/vegan/R/print.adonis.R
===================================================================
--- pkg/vegan/R/print.adonis.R	2010-07-22 12:47:27 UTC (rev 1246)
+++ pkg/vegan/R/print.adonis.R	2010-08-12 07:31:44 UTC (rev 1247)
@@ -3,6 +3,6 @@
 {
     cat("\nCall:\n")
     cat(deparse(x$call), "\n\n")
-    printCoefmat(x$aov.tab,  na.print = "")
+    print(x$aov.tab)
     invisible(x)
 }

Modified: pkg/vegan/inst/ChangeLog
===================================================================
--- pkg/vegan/inst/ChangeLog	2010-07-22 12:47:27 UTC (rev 1246)
+++ pkg/vegan/inst/ChangeLog	2010-08-12 07:31:44 UTC (rev 1247)
@@ -11,6 +11,8 @@
 
 	* intro: ordispider uses label.
 
+	* adonis: uses print.anova for cleaner output.
+
 	* plot.MOStest: uses veganCovEllipse instead of
 	ellipse:::ellipse.glm.