X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fmantel.test.R;h=0de2ad9693e2218fb0caf36b25cff08d67422bb0;hb=da67dccb93d35408baa48b141fcda921772c8b9c;hp=c5c1da21455718d6224468795dc5e3f66ece1e81;hpb=d1546ec66ff1a8ea123adefebe14f6316c23705f;p=ape.git

diff --git a/R/mantel.test.R b/R/mantel.test.R
index c5c1da2..0de2ad9 100644
--- a/R/mantel.test.R
+++ b/R/mantel.test.R
@@ -1,4 +1,4 @@
-## mantel.test.R (2011-11-11)
+## mantel.test.R (2012-03-16)
 
 ##   Mantel Test for Similarity of Two Matrices
 
@@ -18,7 +18,7 @@ mant.zstat <- function(m1, m2) sum(lower.triang(m1 * m2))
 
 lower.triang <- function(m)
 {
-    if (!diff(dim(m))) print("Warning: non-square matrix")
+    if (diff(dim(m))) print("Warning: non-square matrix")
     m[col(m) <= row(m)]
 }