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

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

Author: gsimpson
Date: 2010-02-26 20:30:06 +0100 (Fri, 26 Feb 2010)
New Revision: 1140

Modified:
   pkg/vegan/R/print.permutest.betadisper.R
Log:
fix bug in printing pairwise permutation p-values

Modified: pkg/vegan/R/print.permutest.betadisper.R
===================================================================
--- pkg/vegan/R/print.permutest.betadisper.R	2010-02-22 23:35:56 UTC (rev 1139)
+++ pkg/vegan/R/print.permutest.betadisper.R	2010-02-26 19:30:06 UTC (rev 1140)
@@ -33,8 +33,9 @@
         mat <- matrix(NA, ncol = n.grp, nrow = n.grp)
         colnames(mat) <- rownames(mat) <- x$groups
         mat[lower.tri(mat)] <- x$pairwise$observed
-        mat[upper.tri(mat)] <- x$pairwise$permuted
-        printCoefmat(mat, na.print = "", digits = digits)
+        mat <- t(mat)
+        mat[lower.tri(mat)] <- x$pairwise$permuted
+        printCoefmat(t(mat), na.print = "", digits = digits)
     }
     invisible(x)
 }