# 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, newdata = d[1:2,], time = 1:5, cause = 1)
autoplot(pred.CSC)
pred.CSC <- predict(m.CSC, newdata = d[1:3,],
time = 1:5, cause = 1, se = TRUE, keep.newdata = TRUE)
## strata
m.SCSC <- CSC(Hist(time,event)~ strata(X1) + strata(X2) + X6,
data = d)
pred.SCSC <- predict(m.SCSC, time = 1:3, newdata = d[1:4,],
cause = 1, se = TRUE, keep.newdata = TRUE, keep.strata = TRUE)
autoplot(pred.SCSC, groupBy = "strata")
# }
Run the code above in your browser using DataLab