best_model <- ranger(formula = life_expectancy~., 
                     data = training_data,
                     mtry = 4, num.trees = 100, seed = 42)

test_actual <- testing_data$life_expectancy
test_predict <- predict(best_model, testing_data)$predictions

mae(test_actual, test_predict)