# NOT RUN {
data(prevsim)
# }
# NOT RUN {
prev_obj <- prevalence(Surv(time, status) ~ age(age) + sex(sex) +
entry(entrydate) + event(eventdate),
data=prevsim, num_years_to_estimate = c(5, 10),
population_size=1e6, start = "2005-09-01",
num_reg_years = 8, cure = 5)
survobj <- survfit(prev_obj, newdata=list(age=65, sex=0))
summary(survobj)
summary(survobj, years=c(1, 3, 5, 7))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab