diff --git a/R/Intlr.R b/R/Intlr.R
index b4b8a75e4ae20d086c2bb09010ae7c9978a41d12..981e6fecbb771e61483cf4322a26dd72eb34866d 100644
--- a/R/Intlr.R
+++ b/R/Intlr.R
@@ -89,7 +89,7 @@
 CST_Intlr <- function(exp, obs, lr_method, target_grid = NULL, points = NULL, int_method = NULL, 
                       method_point_interp = NULL, predictors = NULL, lat_dim = "lat", lon_dim = "lon", 
                       sdate_dim = "sdate", time_dim = "time", member_dim = "member",
-                      large_scale_predictor_dimname = 'vars', loocv = FALSE, region = NULL, ncores = NULL) {
+                      large_scale_predictor_dimname = 'vars', loocv = TRUE, region = NULL, ncores = NULL) {
   
   if (!inherits(exp,'s2dv_cube')) {
     stop("Parameter 'exp' must be of the class 's2dv_cube'")
@@ -225,7 +225,7 @@ CST_Intlr <- function(exp, obs, lr_method, target_grid = NULL, points = NULL, in
 Intlr <- function(exp, obs, exp_lats, exp_lons, obs_lats, obs_lons, lr_method, target_grid = NULL, points = NULL, 
                   int_method = NULL, method_point_interp = NULL, source_file_exp = NULL, source_file_obs = NULL, 
                   predictors = NULL, lat_dim = "lat", lon_dim = "lon", sdate_dim = "sdate", time_dim = "time", 
-                  member_dim = "member", region = NULL, large_scale_predictor_dimname = 'vars', loocv = FALSE, 
+                  member_dim = "member", region = NULL, large_scale_predictor_dimname = 'vars', loocv = TRUE, 
                   ncores = NULL) {
   
   #-----------------------------------
diff --git a/R/LogisticReg.R b/R/LogisticReg.R
index f569610f885941b6b9a9b8b85fa213c89dac1214..abac3fb9bef1bd3218badbae56a35b93b47383c6 100644
--- a/R/LogisticReg.R
+++ b/R/LogisticReg.R
@@ -91,7 +91,7 @@
 CST_LogisticReg <- function(exp, obs, target_grid, int_method = NULL, log_reg_method = "ens_mean",
                   probs_cat = c(1/3,2/3), return_most_likely_cat = FALSE, points = NULL, 
                   method_point_interp = NULL, lat_dim = "lat", lon_dim = "lon", sdate_dim = "sdate", 
-                  member_dim = "member", region = NULL, loocv = FALSE, ncores = NULL) {
+                  member_dim = "member", region = NULL, loocv = TRUE, ncores = NULL) {
 
   if (!inherits(exp,'s2dv_cube')) {
     stop("Parameter 'exp' must be of the class 's2dv_cube'")
@@ -227,7 +227,7 @@ LogisticReg <- function(exp, obs, exp_lats, exp_lons, obs_lats, obs_lons, target
                   int_method = NULL, log_reg_method = "ens_mean", probs_cat = c(1/3,2/3), 
                   return_most_likely_cat = FALSE, points = NULL, method_point_interp = NULL, 
                   lat_dim = "lat", lon_dim = "lon", sdate_dim = "sdate", member_dim = "member", 
-                  source_file = NULL, region = NULL, loocv = FALSE, ncores = NULL) {
+                  source_file = NULL, region = NULL, loocv = TRUE, ncores = NULL) {
 
   #-----------------------------------
   # Checkings