# NOT RUN {
fit1 <- est.lucid(G = G1, Z = Z1, Y = Y1, CoY = CovY, K = 2, family = "binary")
chk <- Sys.getenv("_R_CHECK_LIMIT_CORES_", "")
if (nzchar(chk) && chk == "TRUE") {
# use 2 cores in CRAN/Travis/AppVeyor
num_workers <- 2L
} else {
num_workers <- parallel::detectCores()
}
boot1 <- boot.lucid(G = G1, Z = Z1, Y = Y1, CoY = CovY, model = fit1, R = 100, n = num_workers)
# }
Run the code above in your browser using DataLab