test_that("`print.see_performance_pp_check()` works", {
requiet("performance")
model <- lm(Sepal.Length ~ Species * Petal.Width + Petal.Length,
data = iris
)
expect_s3_class(plot(check_posterior_predictions(model)), "gg")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.