# NOT RUN {
library(lme4)
mod_glmer <- glmer(am ~ hp + +wt + factor(cyl) + (1 | gear), mtcars, family = binomial)
tglmer <- fmt_regression(mod_glmer, exponentiate = TRUE)
# In RMarkdown, knitting to HTML:
knitr::kable(as_tibble(tglmer),
row.names = FALSE,
caption = "Model Summary"
) %>%
kableExtra::kable_styling(
bootstrap_options = c("striped", "condensed"),
font_size = 11,
full_width = F
) %>%
kableExtra::add_indent(indent_key(tglmer)) %>%
kableExtra::footnote(general = "Model coefficients and p-values calculated using
generalized linear mixed model, with random intercept specified
as gear type.")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab