# NOT RUN {
data(goalstudy)
# }
# NOT RUN {
res <- BANOVA.ordMultinomial (perceivedsim~1, ~progress*prodvar, goalstudy,
goalstudy$id, burnin = 1000, sample = 1000, thin = 2)
summary(res)
# or use BANOVA.run based on 'Stan'
require(rstan)
res <- BANOVA.run(perceivedsim~progress*prodvar, data = goalstudy,
model_name = 'ordMultinomial', id = 'id', iter = 100, thin = 1, chains = 2)
# }
Run the code above in your browser using DataLab