library(survival)
set.seed(10)
d <- SimSurv(1e2)
fit <- coxph(Surv(time,status)~X1 * X2,data=d, ties="breslow", x = TRUE, y = TRUE)
IFall <- iidCox(fit)
selectJump(IFall, times = 1:2, type = "cumhazard")
Run the code above in your browser using DataLab