str(cake)
print(fm1 <- lmer(angle ~ recipe * temperature + (1|replicate/batch), cake,
method = "ML"), corr = FALSE)
print(fm2 <- lmer(angle ~ recipe + temperature + (1|replicate/batch), cake,
method = "ML"), corr = FALSE)
print(fm3 <- lmer(angle ~ recipe + as.numeric(temperature) +
(1|replicate/batch), cake, method = "ML"), corr = FALSE)
anova(fm3, fm2, fm1)
Run the code above in your browser using DataCamp Workspace