assert_is_lower_triangular_matrix {assertive.matrices} | R Documentation |
Checks that the input is an upper or lower triangular matrix.
assert_is_lower_triangular_matrix(x, strictly = FALSE, tol = 100 * .Machine$double.eps, severity = getOption("assertive.severity", "stop")) assert_is_upper_triangular_matrix(x, strictly = FALSE, tol = 100 * .Machine$double.eps, severity = getOption("assertive.severity", "stop")) is_lower_triangular_matrix(x, strictly = FALSE, tol = 100 * .Machine$double.eps, .xname = get_name_in_parent(x)) is_upper_triangular_matrix(x, strictly = FALSE, tol = 100 * .Machine$double.eps, .xname = get_name_in_parent(x))
x |
Input to check. |
strictly |
Logical. If |
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 <- matrix(c(1, 2, 3, 0, 5, 6, 0, 0, 9), nrow = 3) is_lower_triangular_matrix(x) is_lower_triangular_matrix(x, strictly = TRUE) is_upper_triangular_matrix(t(x)) is_upper_triangular_matrix(t(x), strictly = TRUE) x[1, 2] <- 100 * .Machine$double.eps is_lower_triangular_matrix(x) x[2, 3] <- 101 * .Machine$double.eps is_lower_triangular_matrix(x)