Return model variables.
Examples
model <- lm(mpg ~ wt + cyl * hp * disp + gear * drat, data = mtcars)
ols_get_variables(model)
#> $response
#> [1] "mpg"
#>
#> $predictors
#> [1] "wt" "cyl" "hp" "disp" "gear" "drat"
#>
Return model variables.
model <- lm(mpg ~ wt + cyl * hp * disp + gear * drat, data = mtcars)
ols_get_variables(model)
#> $response
#> [1] "mpg"
#>
#> $predictors
#> [1] "wt" "cyl" "hp" "disp" "gear" "drat"
#>