# NOT RUN {
m <<- lm(mpg ~ wt + cyl + gear + disp, data = mtcars)
check_normality(m)
# plot results
if (require("see")) {
x <- check_normality(m)
plot(x)
}
# }
# NOT RUN {
# QQ-plot
plot(check_normality(m), type = "qq")
# PP-plot
plot(check_normality(m), type = "pp")
# }
Run the code above in your browser using DataLab