lmod <- lm(price ~ sqft_living, data = home_sales)
dffits_plot(lmod, id_n = 6)
# customized plot
dffits_plot(lmod, id_n = 1,
text_arglist = list(col = "blue", cex = 2),
abline_arglist = list(col = "red", lwd = 2))
Run the code above in your browser using DataLab