# NOT RUN {
index <- sample(1:2000, 200)
fit <- est.lucid(G = sim1[-index, 1:10], Z = sim1[-index, 11:20], Y = as.matrix(sim1[-index, 21]))
pred <- predict(object = fit, newG = sim1[index, 1:10], newZ = sim1[index, 11:20])
# }
Run the code above in your browser using DataLab