# --------------------------------------------
# Test checkMatrix function
#----------------------------------------------
testthat::test_that("Test checkMatrix with invalid input", code = {
M <- 5
testthat::expect_error(checkMatrix(M, nrows = 3, ncols = 3),
info = "Test checkMatrix with invalid input"
)
})
testthat::test_that("Test checkMatrix function for invalid nrows", code = {
M <- matrix(c(32, 42, 54, 16, 7, 87, 49, 10, 11, 22, 24, 45),
nrow = 4,
byrow = TRUE
)
testthat::expect_error(checkRUEMatrix(M, nrows = 3, ncols = 3),
info = "Test checkMatrix function for invalid nrows"
)
})
testthat::test_that("Test checkMatrix function for invalid ncols", code = {
M <- matrix(c(32, 42, 54, 16, 7, 87, 49, 10, 11, 22, 24, 45),
nrow = 4,
byrow = TRUE
)
testthat::expect_error(checkMatrix(M, nrows = 4, ncols = 2),
info = "Test checkMatrix function for invalid ncols"
)
})
testthat::test_that("Test checkMatrix function for invalid isType", code = {
M <- matrix(c(32, 42, 54, 16, 7, 87, 49, 10, 11, 22, 24, 45),
nrow = 4,
byrow = TRUE
)
testthat::expect_error(checkMatrix(M, isType = "character"),
info = "Test checkMatrix function for invalid isType"
)
})
testthat::test_that("Test checkMatrix function for invalid isType", code = {
M <- matrix(c("a", "b", "cc", "aa", "cc", "dd"), nrow = 2, byrow = TRUE)
testthat::expect_error(checkMatrix(M, isType = "numeric"),
info = "Test checkMatrix function for invalid isType"
)
})
testthat::test_that("Test checkMatrix function for mixed data ", code = {
M <- matrix(c(32, 42, 54, 16, 7, "a"), nrow = 2, byrow = TRUE)
testthat::expect_error(checkMatrix(M, isType = "numeric"),
info = "Test checkMatrix function for mixed data"
)
})
testthat::test_that("Test checkMatrix function for data in valid interval",
code = {
M <- matrix(c(32, 42, 54, 16, 7, 34), nrow = 2, byrow = TRUE)
testthat::expect_error(checkMatrix(M, interval = c(21, 45), isType = "numeric"),
info = "Test checkMatrix function for data in valid interval"
)
}
)
testthat::test_that("Test checkMatrix function for integer data",
code = {
M <- matrix(c(32L, 42.5, 54L, 16L), nrow = 2, byrow = TRUE)
testthat::expect_error(checkMatrix(M, isType = "integer"),
info = "Test checkMatrix function for integer data"
)
}
)
testthat::test_that("Test checkMatrix function for valid data", code = {
M <- matrix(c(32, 42, 54, 16, 7, 87, 49, 10, 11, 22, 24, 45),
nrow = 4,
byrow = TRUE
)
testthat::expect_invisible(checkMatrix(M, nrows = 4, ncols = 3))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.