# NOT RUN {
library(rstan)
data(ipadstudy)
res_1 <- BANOVA.run(attitude~owner + age + gender + selfbrand*conspic,
model_name = 'Normal', data = ipadstudy, id = 'id', iter = 1000,
thin = 1, chains = 2)
# pairs(res_1, pars = c("beta1[1]","beta1[2]"))
# }
Run the code above in your browser using DataLab