imp <- mice(nhanes)
m <- imp$m
Q <- rep(NA,m)
U <- rep(NA,m)
for (i in 1:m) {
Q[i] <- mean(complete(imp,i)$bmi)
U[i] <- var(complete(imp,i)$bmi)/(nrow(nhanes))
}
pool.scalar(Q,U)
#pool.scalar(Q,U)
#$m
#[1] 5
#
#$qhat
#[1] 26.764 26.748 27.024 27.340 26.436
#
#$u
#[1] 17.85490 19.11677 20.61440 21.05750 15.16990
#
#$qbar
#[1] 26.8624
#
#$ubar
#[1] 18.76269
#
#$b
#[1] 0.1147008
#
#t
#[1] 18.90033
#
#$r
#[1] 0.007335885
#
#$df
#[1] 75422.96
#
#$f
#[1] 0.007308785
#
Run the code above in your browser using DataLab