# Generate dummy data
x <- c(1, 0, 1, 1, 1, 0, 1, 0, 1)
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)
#theta <- thetaEst(Z, gtime, delta)
#res <- betaEst(x, Z, theta$alpha, theta$theta, gtime, delta)
#res
Run the code above in your browser using DataLab