## ----student-plot-usage, eval=FALSE-------------------------------------------
# fit <- cifcurve(
#   Event(t, epsilon) ~ fruitq1, data = diabetes.complications,
#   outcome.type = "competing-risk", error = "if", conf.dist = "t",
#   df.method = "equal", conf.type = "log-log"
# )
# cifplot(fit, outcome.type = "competing-risk", add.risktable = FALSE)