data(
vi,
vi_predictors
)
#subset to limit example run time
vi <- vi[1:1000, ]
#reduce correlation in predictors with cor_select()
vi_predictors <- cor_select(
df = vi,
response = "vi_mean",
predictors = vi_predictors,
max_cor = 0.75
)
#without response
#only numeric predictors are returned
df <- vif_df(
df = vi,
predictors = vi_predictors
)
df
#with response
#categorical and numeric predictors are returned
df <- vif_df(
df = vi,
response = "vi_mean",
predictors = vi_predictors
)
df
Run the code above in your browser using DataLab