# NOT RUN {
fit <- tprob(survIDM(time1,event1,Stime, event) ~ 1, s = 365,
method = "AJ", conf = TRUE, conf.level = 0.95,
conf.type = "linear", n.boot = 50, data = colonIDM)
summary(fit)
summary(fit, times = c(400, 1000, 2900))
# }
Run the code above in your browser using DataLab