if (FALSE) {
# Use simulated competing risks example in package
imps <- smcfcs(
originaldata = ex_compet,
smtype = "compet",
smformula = list(
"Surv(t, d == 1) ~ x1 + x2",
"Surv(t, d == 2) ~ x1 + x2"
),
method = c("", "", "norm", "norm")
)
plot(imps)
plot(imps, include = c("x1-cause1", "x2-cause2"))
}
Run the code above in your browser using DataLab