test_that("display_models does not throw an error when used as intented", {
data(ho_et_al)
ho_et_al$condition_c <- build_contrast(ho_et_al$condition,
"Low discrimination",
"High discrimination")
my_model <-
mdt_simple(data = ho_et_al,
IV = condition_c,
DV = hypodescent,
M = linkedfate)
expect_silent(display_models(my_model))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.