# load 'gammi' package
library(gammi)
# load 'exam' help file
?exam
# load data
data(exam)
# header of data
head(exam)
# fit model
mod <- gammi(Exam.score ~ VRQ.score, data = exam,
random = ~ (1 | Primary.school) + (1 | Secondary.school))
# plot results
plot(mod)
# summarize results
summary(mod)
# variance parameters
mod$VarCorr
Run the code above in your browser using DataLab