-## mantel.test.R (2011-11-11)
+## mantel.test.R (2012-03-16)
## Mantel Test for Similarity of Two Matrices
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)]
}