data("GBSG2", package = "TH.data")
library("survival")
### see ?Coxph for Wald and likelihood intervals
(m2 <- Coxph(Surv(time, cens) ~ horTh, data = GBSG2))
### score interval
confint(score_test(m2))
Run the code above in your browser using DataLab