# NOT RUN {
## no strata
d <- sampleData(1e2, outcome = "competing.risks")
m.CSC <- CSC(Hist(time,event)~ X1 + X2 + X6, data = d)
pred.CSC <- predict(m.CSC, time = 1:5, cause = 1,
se = TRUE, keep.newdata = TRUE)
pred.CSC
print(pred.CSC, ci = TRUE)
## strata
m.SCSC <- CSC(Hist(time,event)~ strata(X1) + strata(X2) + X6,
data = d)
pred.SCSC <- predict(m.SCSC, time = 1:5, cause = 1,
se = TRUE, keep.newdata = TRUE, keep.strata = TRUE)
pred.SCSC
print(pred.SCSC, ci = TRUE)
# }
Run the code above in your browser using DataLab