# NOT RUN {
data("GBSG2", package = "TH.data")
library("survival")
(m1 <- coxph(Surv(time, cens) ~ horTh, data = GBSG2))
(m2 <- Coxph(Surv(time, cens) ~ horTh, data = GBSG2))
### Wald intervals
confint(m1)
confint(m2)
### profile likelihood interval
confint(profile(m2))
### score interval
confint(score_test(m2))
### permutation score interval
confint(perm_test(m2))
# }
Run the code above in your browser using DataLab