data(vi_smol, package = "spatialData")
data(vi_predictors, package = "spatialData")
vi_predictors_numeric <- identify_numeric_variables(
df = vi_smol,
predictors = vi_predictors
)$valid
m <- cor_matrix(
df = vi_smol,
predictors = vi_predictors_numeric[1:5]
)
vif(m)
Run the code above in your browser using DataLab