### NOT RUN
#===========================================================
# add fadding empirical priors by augmenting 10% of the data
#===========================================================
if(0){
data(CHAIN)
IMP <- mi(CHAIN, add.priors=prior.control(method="fading", pct.aug=10))
#=================================================
# add priors by randomly drawing from the marginal
#=================================================
## This is the default setting
IMP <- mi(CHAIN, add.priors=prior.control(method="reshuffling", K=1))
#=================================================
# use no prior
#=================================================
IMP <- mi(CHAIN, add.priors=FALSE)
}
Run the code above in your browser using DataLab