#' Diagnostic Measures for a Linear Regression
#'
#' This function is a wrapper of several diagnostic functions and combines these measures
#' into a single tidy data.frame.
#'
#' @param model The linear model object (\code{lm()} or \code{glm()})
#'
#' @importFrom stats influence.measures cooks.distance predict resid
#' @import dplyr
#'
#' @export
diagnostics <- function(model){
## Data frame
data <- model$model
## Obtaining and combining measures
influences <- stats::influence.measures(model)$infmat %>% data.frame
data %>%
dplyr::mutate(pred = stats::predict(model),
resid = stats::resid(model)) %>%
dplyr::bind_cols(influences)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.