tests/testthat/test-effect_size.R

In ProjectMOSAIC/mosaicModel: Create, Visualize, and Predict with Models

context("mod_effect is working")

test_that("problems with formulas identifying the variable are dealt with correctly", {
  model <- lm(mpg ~ hp + cyl, data = mtcars)
  expect_error(mod_effect(model))
  expect_error(mod_effect(model, ~ gear))
  expect_error(mod_effect(model, ~ bogus))
})