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")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.