# NOT RUN {
library(survival)
wide <- coxph(Surv(years, death==1) ~ sex + thick_centred +
infilt + epith + ulcer + depth + age, data=melanoma)
basehaz(wide)
get_H0(basehaz(wide), c(0,1,5,10,100))
# }
Run the code above in your browser using DataLab