pair
| label for pair |
time
| remission time in weeks |
cens
| censoring, 0/1 |
treat
| treatment, control or 6-MP |
Gehan, E.A. (1965) A generalized Wilcoxon test for comparing arbitrarily single-censored samples. Biometrika 52, 203-233.
library(survival4) data(gehan) attach(gehan) gehan.surv <- survfit(Surv(time, cens) ~ treat) gehan.surv plot(gehan.surv, conf.int=T, lty=c(3,4), log=T, xlab="time of remission (weeks)", ylab="survival") gehan.exp <- survreg(Surv(time, cens) ~ treat + factor(pair), dist="exp") summary(gehan.exp) gehan.exp <- survreg(Surv(time, cens) ~ treat, dist="exp") summary(gehan.exp) gehan.wei <- survreg(Surv(time, cens) ~ treat) summary(gehan.wei) gehan.cox <- coxph(Surv(time, cens) ~ treat) summary(gehan.cox)