# NOT RUN {
sample <- tibble::tibble(
AreaShape_Area = c(10, 12, 15, 16, 8, 8, 7, 7, 13, 18),
AreaShape_Euler = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
)
variables <- c("AreaShape_Area", "AreaShape_Euler")
variance_threshold(variables, sample)
# }
Run the code above in your browser using DataLab