[Vegan-commits] r1142 - branches/1.17/R

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

Author: gsimpson
Date: 2010-02-26 22:32:04 +0100 (Fri, 26 Feb 2010)
New Revision: 1142

Modified:
   branches/1.17/R/print.permutest.betadisper.R
Log:
merge r1140 to 1.17-x branch

Modified: branches/1.17/R/print.permutest.betadisper.R
===================================================================
--- branches/1.17/R/print.permutest.betadisper.R	2010-02-26 19:30:45 UTC (rev 1141)
+++ branches/1.17/R/print.permutest.betadisper.R	2010-02-26 21:32:04 UTC (rev 1142)
@@ -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)
 }