inst/tinytest/test-pkg-brms.R

In vincentarelbundock/gtsummary: Summary Tables and Plots for Statistical Models and Data: Beautiful, Customizable, and Publication-Ready

source("helpers.R")
using("checkmate")
requiet("brms")

# brms: diagnostics and tests
mod <- insight::download_model("brms_1")
tab <- modelsummary(mod, "data.frame", statistic = "conf.int")
expect_inherits(tab, "data.frame")
tab <- modelsummary(mod, "data.frame", diagnostic = "ESS", statistic = "ess")
expect_inherits(tab, "data.frame")
expect_error(modelsummary(mod, "data.frame", statistic = "rope"), pattern = "available")

# modelplot
mod <- marginaleffects:::modelarchive_model("brms_numeric2")
p <- modelplot(mod)
expect_inherits(p, "gg")
p <- modelplot(mod, draw = FALSE)
expect_data_frame(p, nrows = 3)


# mix brms and lm 
modglm <- glm(am ~ mpg + hp, data = mtcars, family = binomial)
models <- list(mod, modglm)

tab <- modelsummary(
    models,
    coef_rename = \(x) gsub("b_", "", x),
    coef_omit = "Intercept",
    statistic = c("std.error", "conf.int"))
expect_inherits(tab, "tinytable")