# NOT RUN {
data(ca1d.erlotinib)
mitotic.lifespans <-
subset(ca1d.erlotinib, !End.of.Expt &
!Death &
!is.na(Lifespan))$Lifespan
censored.lifespans <-
subset(ca1d.erlotinib, End.of.Expt &
!Death &
!is.na(Lifespan))$Lifespan
q.mle.emg.estimate(mitotic.lifespans, censored.lifespans)
# }
Run the code above in your browser using DataLab