data(DataSet9.4)
DataSet9.4$a <- factor(x = DataSet9.4$a)
DataSet9.4$b <- factor(x = DataSet9.4$b)
library(lmerTest)
Exam9.4lmer <- lmer(y ~ a + (1|b) + (1|a/b), data = DataSet9.4)
summary(Exam9.4lmer)
library(emmeans)
emmeans(Exam9.4lmer, spec = ~a)
Run the code above in your browser using DataLab