if (FALSE) {
#############################################################################
# EXAMPLE 1: Rhat statistic for nhanes data
#############################################################################
library(mice)
data(nhanes, package="mice")
set.seed(9090)
# nhanes 3 parallel chains
imp1 <- mice::mice( nhanes, m=3, maxit=10, method=rep("norm", 4 ))
miceadds::Rhat.mice( imp1 )
## variable MissProp Rhat.M.imp Rhat.Var.imp
## 1 bmi 36 1.0181998 1.155807
## 2 hyp 32 1.0717677 1.061174
## 3 chl 40 0.9717109 1.318721
}
Run the code above in your browser using DataLab