# NOT RUN {
Y <- c(11,19,43,100,7,100,100,62,52,1,7,6)
Delta <- c(1,1,1,0,1,0,0,1,1,1,1,1)
X1 <- c(0,0,0,0,0,0,1,1,1,1,1,1)
X2 <- c(-19,6,-25,48,10,-25,15,22,17,-9,45,12)
ID <- c(1,1,2,2,3,3,4,4,5,5,6,6)
X <- X1
CoxBcv.rob(Y,Delta,X,ID)
X <- cbind(X1,X2)
CoxBcv.rob(Y,Delta,X,ID)
# }
Run the code above in your browser using DataLab