# NOT RUN {
data("simdata87")
# Create 2 multiple imputed datasets using bootstrapping, but only use first 2 chemicals.
set.seed(23234)
l <- impute.boot(
X = simdata87$X.bdl[, 1:2], DL = simdata87$DL[1:2],
Z = simdata87$Z.sim[, 1], K = 2
)
# Perform WQS regression on each imputed dataset
set.seed(50679)
bayes.wqs <- do.many.wqs(
y = simdata87$y.scenario, X.imputed = l$X.imputed,
Z = simdata87$Z.sim,
B = 10, family = "binomial"
)
bayes.wqs$wqs.imputed.estimates
# #' @importFrom scales ordinal
# }
Run the code above in your browser using DataLab