assert_is_identity_matrix
Is the matrix an identity matrix?
Checks that the input is an identity matrix.
Usage
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))
Arguments
- x
Input to check.
- tol
Abolute deviations from the expected values smaller than
tol
are not considered.- severity
How severe should the consequences of the assertion be? Either
"stop"
,"warning"
,"message"
, or"none"
.- .xname
Not intended to be used directly.
Value
TRUE
if the input is all zeroes (after coercion to be a
matrix).
Examples
# NOT RUN {
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)
# }
Community examples
Looks like there are no examples yet.