# NOT RUN {
### from the example for 'speffSurv':
data <- na.omit(ACTG175[ACTG175$arms<=1 & ACTG175$gender==0,])
fit2 <- speffSurv(Surv(days,cens) ~ cd40+cd80+age+wtkg+drugs+karnof+z30+
preanti+symptom, data=data, trt.id="arms", fixed=TRUE)
summary(fit2)
# }
Run the code above in your browser using DataLab