# NOT RUN {
if (interactive()) {
# Create a simple test data set using the attached function gen_data
a <- gen_data(200, c(1, 0.1, 2), cont = 0.05, p.censor = 0.30)
result <- coxr(Surv(time, status) ~ X1 + X2 + X3, data = a , trunc = 0.9)
result
plot(result)
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab