library(survival)
library(dplyr)
data_lung <- lung |>
mutate_at(vars(inst, status, sex), as.factor) |>
mutate(status = case_when(status == 1 ~ 0, status == 2 ~ 1))
fit <- coxph(Surv(time, status) ~ 1, data = data_lung)
# Create a univariate model for each variable
fit |> build_model(sex, age)
Run the code above in your browser using DataLab