Function to plot the diagnostic of models
Examples
if (FALSE) { # \dontrun{
library(inti)
lm <- aov(stemdw ~ bloque + geno*treat, data = potato)
# lm <- potato %>% lme4::lmer(stemdw ~ (1|bloque) + geno*treat, data = .)
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]
} # }