# model
model <- lm(mpg ~ disp + hp + wt + qsec, data = mtcars)
# using fitted values
ols_test_f(model)
# using all predictors of the model
ols_test_f(model, rhs = TRUE)
# using fitted values
ols_test_f(model, vars = c('disp', 'hp'))
Run the code above in your browser using DataLab