# NOT RUN {
mod <- lm_imp(y~C1 + C2 + M2, data = wideDF, n.iter = 100)
mod_add <- add_samples(mod, n.iter = 200, add = TRUE)
# or to additionally sample imputed values
imps <- add_samples(mod, n.iter = 200, monitor_params = c("imps" = TRUE),
add = FALSE)
# }
Run the code above in your browser using DataLab