R/mean_squared_error.R

mean_squared_error <- function(lm_model){

  fit <- fitted.values(lm_model)
  actual <- lm_model$model[,1]

  n <- length(fit)

  sum((actual - fit)^2) / n
}
abailey91/tidyModel documentation built on May 25, 2019, 2:24 p.m.