Tests whether an object of class matrix is compound symmetric by checking whether all diagonal elements are equal and all off-diagonal elements are equal.
# S3 method for matrix
isCompoundSymmetric(object, tol = 100 * .Machine$double.eps, ...)A logical.
An object to be tested.
a numeric scalar > 0 specifying that values smaller than it
are considered to be zero.
Provision for passing arguments to functions called internally - not used at present.
Chris Brien