# NOT RUN {
# Example 1 ----------------------------------
add_glance_source_note_ex1 <-
lm(age ~ marker + grade, trial) %>%
tbl_regression() %>%
add_glance_source_note(
label = list(df ~ "Degrees of Freedom", sigma ~ "\U03C3"),
fmt_fun = df ~ style_number,
include = c(r.squared, AIC, sigma, df)
)
# }
Run the code above in your browser using DataLab