ctrl <- caret::trainControl(method = "cv",
                   number = 10,
                   verboseIter = FALSE,
                   sampling = "down")

set.seed(42)
model_rf_under_de <- caret::train(POP1 ~ .,
                               data = data,
                               method = "rf",
                               trControl = ctrl)