data(
vi,
vi_predictors
)
#create zero variance predictors
vi$zv_1 <- 1
vi$zv_2 <- runif(n = nrow(vi), min = 0, max = 0.0001)
#add to vi predictors
vi_predictors <- c(
vi_predictors,
"zv_1",
"zv_2"
)
#identify zero variance predictors
zero.variance.predictors <- identify_zero_variance_predictors(
df = vi,
predictors = vi_predictors
)
zero.variance.predictors
Run the code above in your browser using DataLab