if (require("survival", quietly = TRUE)) {
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