# 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
sexpfit <- survexp(
futime ~ 1,
rmap = list(
sex = "male",
year = accept.dt,
age = (accept.dt - birth.dt)
),
method = "conditional",
data = jasa
)
# summarize model fit with tidiers
tidy(sexpfit)
glance(sexpfit)
}
# }
Run the code above in your browser using DataLab