if (FALSE) {
dt <- potato
lm <- aov(stemdw ~ bloque + geno*treat, dt)
#lm <- lme4::lmer(stemdw ~ bloque + (1|geno:treat), dt)
plot(lm, which = 1)
plot_diag(lm)[3]
plot(lm, which = 2)
plot_diag(lm)[2]
plot(lm, which = 3)
plot_diag(lm)[4]
plot(lm, which = 4)
plot_diag(lm)[1]
}
Run the code above in your browser using DataLab