Delete verbose

Author: mhurtado13

R/machine_learning.R

@@ -426,6 +426,7 @@ compute_k_fold_CV = function(model, k_folds, n_rep, stacking = FALSE, metric = "
 
     # Iterate across folds and inside each subfold corresponding to each param combination (if exist)
     for (fold_i in seq_along(result_files)) { ### number of folds (k_fold x n_rep)
+      cat("Running ML models with fold", fold_i, "\n")
 
       result = readRDS(result_files[[fold_i]]) ## per resample
 
@@ -450,7 +451,6 @@ compute_k_fold_CV = function(model, k_folds, n_rep, stacking = FALSE, metric = "
           models <- lapply(
              ml_methods_names,
              function(method) {
-               cat("Running model", method, "with param configuration", parameter_i, "and fold", fold_i, "\n")
                tune_grid <- get_tune_grid(method, train_data)
 
                model_name <- if (method %in% c("lasso", "ridge")) "glmnet" else method
@@ -482,7 +482,6 @@ compute_k_fold_CV = function(model, k_folds, n_rep, stacking = FALSE, metric = "
         models = lapply(
           ml_methods_names,
           function(method){
-            cat("Running model...", method)
 
             tune_grid = NULL
             if(method == "glmnet"){