d1 <- defData(varname = "x1", formula = .5, dist = "binary")
d1 <- defData(d1, "x2", .5, dist = "binary")
dS <- defSurv(varname = "reinc", formula = "-10 - 0.6*x1 + 0.4*x2", shape = 0.3)
dS <- defSurv(dS, "death", "-6.5 + 0.3*x1 - 0.5*x2", shape = 0.5)
dS <- defSurv(dS, "censor", "-7", shape = 0.55)
dd <- genData(10, d1)
dd <- genSurv(dd, dS)
addCompRisk(dd, c("reinc","death", "censor"), timeName = "time",
censorName = "censor", keepEvents = FALSE)
Run the code above in your browser using DataLab