data(studentratings)
fml <- ReadDis ~ ReadAchiev + (1|ID)
imp <- panImpute(studentratings, formula = fml, n.burn = 500, n.iter = 100, m = 5)
implist <- mitmlComplete(imp)
# fit regression model
fit <- with(implist, lm(ReadDis ~ 1 + ReadAchiev))
est <- testEstimates(fit)
# extract parameter estimates and variance-covariance matrix
coef(est)
vcov(est)
# compute confidence intervals
confint(est)
# ... with different confidence levels
confint(est, level = 0.90)
confint(est, level = 0.999)
Run the code above in your browser using DataLab