# NOT RUN {
# Veterans' administration lung cancer data
data(veteran, package="survival")
head(veteran)
mod1 <- mpr(Surv(time, status) ~ list(~ trt, ~ trt), data=veteran, family="Weibull")
mod1
extractIC(mod1) # AIC
extractIC(mod1, aic=FALSE) # BIC
# }
Run the code above in your browser using DataLab