if (FALSE) { # require("performance")
m <<- lm(mpg ~ wt + cyl + gear + disp, data = mtcars)
result <- check_normality(m)
plot(result)
}
if (FALSE) { # require("performance") && require("qqplotr")
plot(result, type = "qq", detrend = TRUE)
}
Run the code above in your browser using DataLab