dwww Home | Show directory contents | Find package

if (requiet("lme4")) {
  data(mtcars)
  data(sleepstudy)

  m1 <- lm(mpg ~ wt + cyl + vs, data = mtcars)
  m2 <- lm(mpg ~ wt + cyl, data = mtcars)
  m3 <- lmer(Reaction ~ Days + (1 | Subject), data = sleepstudy)
  m4 <- glm(formula = vs ~ wt, family = binomial(), data = mtcars)

  test_that("all_models_equal", {
    expect_true(all_models_equal(m1, m2))
    expect_false(all_models_equal(m1, m2, mtcars))
    suppressMessages(expect_message(all_models_equal(m1, m2, mtcars, verbose = TRUE)))
    expect_false(suppressMessages(all_models_equal(m1, m2, mtcars, verbose = TRUE)))
    expect_false(all_models_equal(m1, m2, m3))
    expect_message(expect_false(all_models_equal(m1, m4, m2, m3, verbose = TRUE)))

    expect_true(is_model_supported(m1))
    expect_false(is_model_supported(mtcars))
  })
}

Generated by dwww version 1.15 on Sun Jun 16 03:42:19 CEST 2024.