# NOT RUN {
stctrl <- storeControl(score.switch=FALSE)
# data(olive)
# sim <- mcmc_IMIFA(olive, "IMIFA", n.iters=5000, storage=stctrl)
# Alternatively specify these arguments directly
# sim <- mcmc_IMIFA(olive, "IMIFA", n.iters=5000, score.switch=FALSE)
# }
Run the code above in your browser using DataLab