# NOT RUN {
#use the lung cancer data at Mayo Clinic
#to compare results of non-robust and robust estimation
result <- coxr(Surv(time, status) ~ age + sex + ph.karno + meal.cal + wt.loss, data = lung)
plot(result, main = "Mayo Clinic Lung Cancer Data")
# }
Run the code above in your browser using DataLab