# NOT RUN {
data(Alzheimer)
summary(blca.em(Alzheimer, 2))
summary(blca.vb(Alzheimer, 2, alpha=2, beta=2, delta=0.5))
# }
# NOT RUN {
(fit.gibbs)<- blca.gibbs(Alzheimer, 2, delta=2)
# }
# NOT RUN {
summary(fit.gibbs)
# }
Run the code above in your browser using DataLab