# NOT RUN {
data(ToyUni)
example <- augSIMEX(mainformula = Y ~ Xstar + Zstar + W, family = binomial(link = logit),
mismodel = pi|qi ~ W,
meformula = Xstar ~ X + Z + W,
data = ToyUni$Main,validationdata = ToyUni$Validation, subset = NULL,
err.var = "Xstar", mis.var = "Zstar", err.true = "X", mis.true = "Z",
err.mat = NULL,
lambda = NULL, M = 5, B = 2, nBoot = 2, extrapolation="quadratic")
predict(example)
# }
Run the code above in your browser using DataLab