# NOT RUN {
# feel free to ignore the following line<U+2014>it allows {broom} to supply
# examples without requiring the model-supplying package to be installed.
if (requireNamespace("survival", quietly = TRUE)) {
# load libraries for models and data
library(survival)
# fit model
s <- survdiff(
Surv(time, status) ~ pat.karno + strata(inst),
data = lung
)
# summarize model fit with tidiers
tidy(s)
glance(s)
}
# }
Run the code above in your browser using DataLab