# NOT RUN
#========================================================
# data(CHAIN)
# CHAIN <- mi.preprocess(CHAIN)
# imp.CHAIN <- mi(CHAIN, n.iter=6, add.noise=noise.control(post.run.iter=0))
# convergence.plot(imp.CHAIN,mfrow=c(2,4))
#========================================================
Run the code above in your browser using DataLab