Nothing
.runThisTest <- Sys.getenv("RunAllggeffectsTests") == "yes"
if (.runThisTest &&
suppressWarnings(
requiet("testthat") &&
requiet("brms") &&
requiet("ggeffects") &&
requiet("insight")
)) {
m1 <- suppressWarnings(insight::download_model("brms_mixed_6"))
m2 <- insight::download_model("brms_mv_4")
m3 <- insight::download_model("brms_2")
skip_if(is.null(m1) || is.null(m2) || is.null(m3))
test_that("ggpredict, brms-trial", {
ggpredict(m1, c("Base", "Trt"))
ggpredict(m2, "Species")
ggpredict(m3, c("treat", "c2"))
})
}
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.