# NOT RUN {
data(Alzheimer)
# }
# NOT RUN {
fit.gibbs <- blca.gibbs(Alzheimer, 2)
# }
# NOT RUN {
raftery.diag(as.mcmc(fit.gibbs))
# }
# NOT RUN {
# }
# NOT RUN {
fit.gibbs <- blca.gibbs(Alzheimer, 2, iter=50000, accept=0.1, burn.in=100)
# }
# NOT RUN {
plot(as.mcmc(fit.gibbs))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab