tests/testthat/test-effect_size.R

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))
})
ProjectMOSAIC/mosaicModel documentation built on May 13, 2019, 1:35 a.m.