require(DTR)
#-------Example function usage-----------
n <- 400
pi.x <- 0.5
pi.z <- 0.5
lambda <- 1/4
alpha <- 1/6
beta1 <- -0.5
beta2 <- -0.8
beta3 <- 0.5
beta4 <- 1
beta5 <- -1
gamma <- -0.5
max.c <- 14
set.seed(123)
fdata <- sim.Cox.data(n,max.c,pi.x,pi.z,lambda,alpha,beta1,beta2,beta3,beta4,beta5,gamma)
# Testing
DTR.Cox.test(fdata)
Run the code above in your browser using DataLab