# \donttest{
# Example 1 ----------------------------------
# show 'grade' p-values to 3 decimal places
modify_fmt_fun_ex1 <-
lm(age ~ marker + grade, trial) %>%
tbl_regression() %>%
modify_fmt_fun(
update = p.value ~ function(x) style_pvalue(x, digits = 3),
rows = variable == "grade"
)
# }
Run the code above in your browser using DataLab