## Sample from the posteriors for two models
data(puzzles)
## Main effects model; result is a BFmcmc object, inheriting
## mcmc from the coda package
mod1 = lmBF(RT ~ shape + color + ID, data = puzzles, whichRandom = "ID",
progress = FALSE, posterior = TRUE, iterations = 1000)
plot(mod1)
## Full model
mod2 = lmBF(RT ~ shape*color + ID, data = puzzles, whichRandom = "ID",
progress = FALSE, posterior = TRUE, iterations = 1000)
## Each BFmcmc object contains the model used to generate it, so we
## can compare them (data is not needed, it is contained in the objects):
compare(mod1, mod2)
Run the code above in your browser using DataLab