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