# NOT RUN {
### lung data of the survival package (see ?lung)
data(lung)
fit_mpl <- coxph_mpl(Surv(time, status == 2) ~ age + sex + ph.karno + wt.loss, data = lung)
par(mfrow=c(1,2))
plot(residuals(fit_mpl), which=1:2, ask=FALSE)
# }
Run the code above in your browser using DataLab