# NOT RUN {
# Use simulated dataset and set seed for reproducibility.
data(simdata87)
set.seed(23456)
Wa <- estimate.wqs(
y = simdata87$y.scenario, X = simdata87$X.true[, 1:3],
B = 10, family = "binomial"
)
coef(Wa)
# }
Run the code above in your browser using DataLab