# NOT RUN {
library(survival)
sexpfit <- survexp(
futime ~ 1,
rmap = list(
sex = "male",
year = accept.dt,
age = (accept.dt - birth.dt)
),
method = 'conditional',
data = jasa
)
tidy(sexpfit)
glance(sexpfit)
# }
Run the code above in your browser using DataLab