data("GBSG2", package = "TH.data")
library("survival")
(m1 <- coxph(Surv(time, cens) ~ horTh, data = GBSG2))
(m2 <- Coxph(Surv(time, cens) ~ horTh, data = GBSG2))
### McLain & Ghosh (2013); takes too long on Windows
if (FALSE) m3 <- Coxph(Surv(time, cens) ~ horTh, data = GBSG2,
frailty = "Gamma")
### Wald intervals
confint(m1)
confint(m2)
### profile likelihood interval
confint(profile(m2))
### score interval
confint(score_test(m2))
### permutation score interval; uses permutation distribution
### see coin::independence_test; takes too long on Windows
if (FALSE) confint(perm_test(m2))
Run the code above in your browser using DataLab