adjust according to deprecated PR #83

HannaMeyer · Mar 12, 2024 · 283b997 · 283b997
1 parent 3b89000
commit 283b997
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/errorProfiles.R b/R/errorProfiles.R
@@ -211,9 +211,9 @@ multiCV <- function(model, locations, length.out, method, useWeight, variable,..
     # retrain model and calculate AOA
     model_new <- do.call(caret::train,mcall)
     if (variable == "DI") {
-      trainDI_new <- trainDI(model_new, method=method, useWeight=useWeight)
+      trainDI_new <- trainDI(model_new, method=method, useWeight=useWeight, verbose =FALSE)
     } else if (variable == "LPD") {
-      trainDI_new <- trainDI(model_new, method=method, useWeight=useWeight, LPD = TRUE)
+      trainDI_new <- trainDI(model_new, method=method, useWeight=useWeight, LPD = TRUE, verbose =FALSE)
     } else if (variable=="geodist"){
       tmp_gd_new <- CAST::geodist(locations,modeldomain=locations,cvfolds = model$control$indexOut)
       geodist_new <- tmp_gd_new[tmp_gd_new$what=="CV-distances","dist"]