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