revdep/checks.noindex/psycModel/old/psycModel.Rcheck/tests/testthat/test-lme-model.R

testthat::test_that(desc = "lme_model: lmerTest (specify model)", {
  fit <- lme_model(
    data = popular,
    model = "popular ~ extrav + sex + (1 | class)",
    use_package = "lmerTest"
  )
  expect_equal(class(fit)[1], "lmerModLmerTest")
})
aloy/qqplotr documentation built on Feb. 2, 2023, 4:56 a.m.