\HeaderA{gehan}{Remission Times of Leukaemia Patients}{gehan}
\keyword{datasets}{gehan}
\begin{Description}\relax
A data frame from a trial of 42 leukaemia patients. Some were
treated with the drug \emph{6-mercaptopurine}
and the rest are controls.  The trial was designed as matched pairs,
both withdrawn from the trial when either came out of remission.
\end{Description}
\begin{Usage}
\begin{verbatim}
gehan
\end{verbatim}
\end{Usage}
\begin{Format}\relax
This data frame contains the following columns:
\describe{
\item[\code{pair}] label for pair.

\item[\code{time}] remission time in weeks.

\item[\code{cens}] censoring, 0/1.

\item[\code{treat}] treatment, control or 6-MP.

}
\end{Format}
\begin{Source}\relax
Cox, D. R. and Oakes, D. (1984) \emph{Analysis of Survival Data.}
Chapman \& Hall, p. 7. Taken from

Gehan, E.A. (1965) A generalized Wilcoxon test for comparing
arbitrarily single-censored samples.
\emph{Biometrika} \bold{52}, 203--233.
\end{Source}
\begin{References}\relax
Venables, W. N. and Ripley, B. D. (2002)
\emph{Modern Applied Statistics with S.} Fourth edition.  Springer.
\end{References}
\begin{Examples}
\begin{ExampleCode}
library(survival)
gehan.surv <- survfit(Surv(time, cens) ~ treat, data = gehan,
     conf.type = "log-log")
summary(gehan.surv)
survreg(Surv(time, cens) ~ factor(pair) + treat, gehan, dist = "exponential")
summary(survreg(Surv(time, cens) ~ treat, gehan, dist = "exponential"))
summary(survreg(Surv(time, cens) ~ treat, gehan))
gehan.cox <- coxph(Surv(time, cens) ~ treat, gehan)
summary(gehan.cox)
\end{ExampleCode}
\end{Examples}

