Skip to contents

check_matrix_constant() and check_is_matrix_constant() check whether a matrix contains constant (same) values. check_is_matrix_constant() raises an error if all the values of the matrix are not the same, while check_is_matrix_constant() returns TRUE if the matrix constant (same) values and FALSE otherwise.

Usage

check_matrix_constant(mat, par_name = "mat")

check_is_matrix_constant(mat)

Arguments

mat

The matrix to check.

par_name

A name for the parameter mat to display in error messages.

Value

  • check_matrix_constant(): Returns NULL if the matrix contains constant (same) values, or raises an error if the matrix contains different values.

  • check_is_matrix_constant(): Logical value, TRUE if the matrix constant (same) values and FALSE otherwise.

Examples

# Examples for check_matrix_constant()
# ------------------------------------
A <- matrix(5, nrow = 3, ncol = 3)
check_matrix_constant(A)
#>      [,1] [,2] [,3]
#> [1,]    5    5    5
#> [2,]    5    5    5
#> [3,]    5    5    5

B <- matrix(c(5, 5, 5, 0, 5, 5), nrow = 2, ncol = 3)
print(B)
#>      [,1] [,2] [,3]
#> [1,]    5    5    5
#> [2,]    5    0    5
try(check_matrix_constant(B))
#> Error in check_matrix_constant_with_k(mat = mat, par_name = par_name) : 
#>   Expected 'mat' to be a constants matrix

# Examples for check_is_matrix_constant()
# ---------------------------------------
check_is_matrix_constant(A)
#> [1] TRUE
check_is_matrix_constant(B)
#> [1] FALSE