Nothing
if (require("marginaleffects") && require("lme4")) {
test_that("get_marginaleffects", {
model <- lm(Sepal.Width ~ Species * Petal.Length, data = iris)
expect_equal(nrow(get_marginaleffects(model, trend = "Petal.Length", at = "Species")), 3L)
# get_marginaleffects(model, trend = "Petal.Length", at = "Species", length = 10)
})
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.