testm <- stats::lm(mpg ~ hp * factor(cyl), data = mtcars)
testm <- stats::lm(mpg ~ factor(cyl), data = mtcars)
md <- residualDiagnostics(testm, ev.perc = .1)
plot(md, plot = FALSE)$ResFittedPlot
plot(md, ncol = 2)
## clean up
rm(testm, md)
Run the code above in your browser using DataLab