# \donttest{
# Example 1 ----------------------------------
add_nevent.tbl_regression_ex1 <-
trial %>%
select(response, trt, grade) %>%
tbl_uvregression(
y = response,
method = glm,
method.args = list(family = binomial),
) %>%
add_nevent()
# Example 2 ----------------------------------
add_nevent.tbl_regression_ex2 <-
glm(response ~ age + grade, trial, family = binomial) %>%
tbl_regression(exponentiate = TRUE) %>%
add_nevent(location = "level")
# }
Run the code above in your browser using DataLab