# Generate dummy data
cov1 <- c(1, 2, 2, 2, 1, 1, 0, 1, 1)
cov2 <- c(2, 2, 1, 0, 1, 0, 1, 1, 0.5)
Z <- cbind(cov1, cov2)
gtime <- c(1, 3, 3, 2, 1, 1, 2, 3, 1)
delta <- c(1, 0, 1, 1, 1, 0, 1, 0, 1)
#res <- thetaEst(Z, gtime, delta)
#res
Run the code above in your browser using DataLab