skip_if_not_installed("MASS")
test_that("model.matrix.rlm accepts `data` argument", {
mod <- MASS::rlm(mpg ~ hp + factor(cyl), mtcars)
mm <- get_modelmatrix(mod)
expect_true(is.matrix(mm))
expect_equal(dim(mm), c(32, 4))
mm <- get_modelmatrix(mod, data = head(mtcars))
expect_true(is.matrix(mm))
expect_equal(dim(mm), c(6, 4))
})
test_that("predict.rlm", {
mod <- MASS::rlm(mpg ~ hp + factor(cyl), mtcars)
a <- get_predicted(mod)
b <- get_predicted(mod, predict = NULL, type = "response", verbose = FALSE)
expect_s3_class(a, "get_predicted")
expect_s3_class(b, "get_predicted")
expect_equal(a, b, ignore_attr = TRUE)
expect_equal(as.vector(a), as.vector(b))
expect_error(get_predicted(mod, predict = "link"))
expect_error(get_predicted(mod, predict = NULL, type = "link"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.