data(prevsim)
## Not run:
#
# 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)
#
# test_prevalence_fit(obj)
# ## End(Not run)
Run the code above in your browser using DataLab