#' Residual QQ plot
#'
#' Graph for detecting violation of normality assumption.
#'
#' @param model An object of class \code{lm}.
#'
#' @section Deprecated Function:
#' \code{ols_rsd_qqplot()} has been deprecated. Instead use \code{ols_plot_resid_qq()}.
#'
#' @examples
#' model <- lm(mpg ~ disp + hp + wt, data = mtcars)
#' ols_plot_resid_qq(model)
#'
#' @family residual diagnostics
#'
#' @importFrom stats qqnorm qqline
#'
#' @export
#'
ols_plot_resid_qq <- function(model) {
check_model(model)
resid <- residuals(model)
y <- quantile(resid[!is.na(resid)], c(0.25, 0.75))
x <- qnorm(c(0.25, 0.75))
slope <- diff(y) / diff(x)
int <- y[1L] - slope * x[1L]
d <- tibble(x = resid)
p <- ggplot(d, aes(sample = x)) + stat_qq(color = "blue") +
geom_abline(slope = slope, intercept = int, color = "red") +
xlab("Theoretical Quantiles") + ylab("Sample Quantiles") +
ggtitle("Normal Q-Q Plot")
print(p)
}
#' @export
#' @rdname ols_plot_resid_qq
#' @usage NULL
#'
ols_rsd_qqplot <- function(model) {
.Deprecated("ols_plot_resid_qq()")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.