data(studentratings)
fml <- ReadDis + SES ~ ReadAchiev + (1|ID)
imp <- panImpute(studentratings, formula = fml, n.burn = 1000, n.iter = 100, m = 5)
# extract original (incomplete) data set
mitmlComplete(imp, print = 0)
# extract first imputed data set (returned as mitml.list)
mitmlComplete(imp, print = 1, force.list = TRUE)
# extract all imputed data sets at once
implist <- mitmlComplete(imp, print = "all")
if (FALSE) {
# ... alternatives with same results
implist <- mitmlComplete(imp, print = 1:5)
implist <- mitmlComplete(imp, print = "list")
}
Run the code above in your browser using DataLab