assert_is_identity_matrix {assertive.matrices} | R Documentation |
Checks that the input is an identity matrix.
assert_is_identity_matrix(x, tol = 100 * .Machine$double.eps, severity = getOption("assertive.severity", "stop")) is_identity_matrix(x, tol = 100 * .Machine$double.eps, .xname = get_name_in_parent(x))
x |
Input to check. |
tol |
Abolute deviations from the expected values smaller than
|
severity |
How severe should the consequences of the assertion be?
Either |
.xname |
Not intended to be used directly. |
TRUE
if the input is all zeroes (after coercion to be a
matrix).
x <- diag(3) is_identity_matrix(x) x[1, 2] <- 100 * .Machine$double.eps is_identity_matrix(x) x[2, 3] <- 101 * .Machine$double.eps is_identity_matrix(x)