# NOT RUN {
## Two-sided permutation test
T <- rexp(100) ## event times
Z <- rbinom(100, 1, 0.5) ## treatment assignment
C <- rexp(100) ## drop-out times
data <- data.frame(time=pmin(T,C), status=T<=C, Z=Z)
x <- permLR(Surv(time, status) ~ Z, data, alpha=c(0.025, 0.025))
summary(x)
# }
Run the code above in your browser using DataLab