# NOT RUN {
# Example 1 ----------------------------------
modify_table_header_ex1 <-
lm(mpg ~ factor(cyl), mtcars) %>%
tbl_regression() %>%
modify_table_header(column = estimate,
label = "**Coefficient**",
fmt_fun = function(x) style_sigfig(x, digits = 5),
footnote = "Regression Coefficient") %>%
modify_table_header(column = "p.value",
hide = TRUE)
# }
Run the code above in your browser using DataCamp Workspace