model1 = lme4::lmer(lr_self ~ age + gender + (1 | canton), data=selects2015)
summary(model1)
# comparing a 20 year old woman with a 20 year old man considering their left-right position
dc(model1, values1 = c(1,20,1),
values2 = c(1,20,0))
Run the code above in your browser using DataLab