is.CompSym {r2glmm}

Checks if a matrix is Compound Symmetric.

Description

Checks if a matrix is Compound Symmetric.

Usage

is.CompSym(mat, tol = 1e-05)

Arguments

mat

The matrix to be tested.

tol

a number indicating the smallest acceptable difference between off diagonal values.

Value

True if the matrix is compound symmetric.

Examples

gcmat <- matrix(c(1,0.2,0.1,0.2,1,0.3,0.1,0.3,1), nrow = 3)
csmat <- matrix(c(1,0.2,0.2,0.2,1,0.2,0.2,0.2,1), nrow = 3)
is.CompSym(csmat)