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

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

Author: jarioksa
Date: 2009-12-15 14:02:08 +0100 (Tue, 15 Dec 2009)
New Revision: 1082

Modified:
   pkg/vegan/R/print.permutest.cca.R
   pkg/vegan/inst/ChangeLog
Log:
print.permutest uses pasteCall()

Modified: pkg/vegan/R/print.permutest.cca.R
===================================================================
--- pkg/vegan/R/print.permutest.cca.R	2009-12-14 18:25:35 UTC (rev 1081)
+++ pkg/vegan/R/print.permutest.cca.R	2009-12-15 13:02:08 UTC (rev 1082)
@@ -1,8 +1,8 @@
 "print.permutest.cca" <-
     function (x, ...) 
 {
-    cat("\nPermutation test for", x$method, "\nCall:\n")
-    cat(deparse(x$call), "\n\n")
+    cat("\nPermutation test for", x$method, "\n\n")
+    writeLines(strwrap(pasteCall(x$call)))
     Pval <- sum(x$F.perm >= x$F.0)/x$nperm
     cat("Permutation test for ")
     if (x$first)

Modified: pkg/vegan/inst/ChangeLog
===================================================================
--- pkg/vegan/inst/ChangeLog	2009-12-14 18:25:35 UTC (rev 1081)
+++ pkg/vegan/inst/ChangeLog	2009-12-15 13:02:08 UTC (rev 1082)
@@ -18,6 +18,8 @@
 	anova(cca(dune ~ Management, dune.env),
 	strata=dune.env$Management).  Now rounds statistics to 12 decimal
 	places in permutest.cca and in anova.ccabyterm.
+
+	* permutest.cca: uses pasteCall() in print.
 	
 Version 1.16-33 (closed December 13, 2009)