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))
#
# plot(survobj)
#
# plot(survobj, pct_show=0) # Display curves with any outlying points
# plot(survobj, pct_show=0.5) # Display curves with half outlying points
# plot(survobj, pct_show=0.99) # Display curves with nearly all outlying points
# ## End(Not run)
Run the code above in your browser using DataLab