Model intercept check

Checks if model has an intercept.

Usage

ols_has_intercept(model)

Arguments

model

An object of class lm.

Value

TRUE if model has an intercept, FALSE otherwise.

Examples

model <- lm(mpg ~ wt + cyl + hp + disp + gear + drat, data = mtcars)
ols_has_intercept(model)
#> [1] TRUE

model <- lm(mpg ~ 0 + wt + cyl + hp + disp + gear + drat, data = mtcars)
ols_has_intercept(model)
#> [1] FALSE