Returns the model deviance.
Examples
model <- lm(mpg ~ wt + cyl + hp + disp + gear + drat, data = mtcars)
ols_get_deviance(model)
#> [1] 166.1858
Returns the model deviance.
model <- lm(mpg ~ wt + cyl + hp + disp + gear + drat, data = mtcars)
ols_get_deviance(model)
#> [1] 166.1858