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

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

Author: jarioksa
Date: 2013-09-06 10:12:23 +0200 (Fri, 06 Sep 2013)
New Revision: 2604

Modified:
   pkg/vegan/R/print.vectorfit.R
Log:
vectorfit zaps nearly zero coordinates in printed output

Modified: pkg/vegan/R/print.vectorfit.R
===================================================================
--- pkg/vegan/R/print.vectorfit.R	2013-09-05 10:01:18 UTC (rev 2603)
+++ pkg/vegan/R/print.vectorfit.R	2013-09-06 08:12:23 UTC (rev 2604)
@@ -1,8 +1,9 @@
-"print.vectorfit" <-
+`print.vectorfit` <-
     function (x, ...) 
 {
     out <- cbind(x$arrows, r2 = x$r, "Pr(>r)" = x$pvals)
-    printCoefmat(out, na.print = "", ...)
+    printCoefmat(out, na.print = "",
+                 zap.ind = seq_len(ncol(out)-2), ...)
     if (x$permutations) {
         cat("P values based on", x$permutations, "permutations")
         if (!is.null(x$strata))