dwww Home | Show directory contents | Find package

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

  m1 <- lm(mpg ~ 1, data = mtcars)
  m2 <- lm(mpg ~ gear, data = mtcars)
  m3 <- lmer(Reaction ~ 1 + (Days | Subject), data = sleepstudy)
  m4 <- lmer(Reaction ~ Days + (Days | Subject), data = sleepstudy)
  m5 <- suppressWarnings(lmer(Reaction ~ 0 + (Days | Subject), data = sleepstudy))

  test_that("is_nullmodel", {
    expect_true(is_nullmodel(m1))
    expect_false(is_nullmodel(m2))
    expect_true(is_nullmodel(m3))
    expect_false(is_nullmodel(m4))
    expect_true(is_nullmodel(m5))
  })
}

Generated by dwww version 1.15 on Sat Jun 15 21:38:30 CEST 2024.