data(vi_smol, vi_predictors)
#create zero and near variance predictors
vi_smol$zero_variance <- 1
vi_smol$near_zero_variance <- runif(
n = nrow(vi_smol),
min = 0,
max = 0.0001
)
#add to vi predictors
vi_predictors <- c(
vi_predictors,
"zero_variance",
"near_zero_variance"
)
#identify zero variance predictors
x <- identify_zero_variance_variables(
df = vi_smol,
predictors = vi_predictors
)
x
Run the code above in your browser using DataLab