packages <- c("tidyverse", "car")
packages <- lapply(packages, FUN = function(x) {
if(!require(x, character.only = TRUE)) {
install.packages(x)
library(x, character.only = TRUE)}})
df <- mtcars
str(df)
full.model <- lm(mpg ~., data = df)
summary(full.model)
car::vif(full.model)