From 1e5d6fe21360e4d6058bd02ee7380d5205cf13da Mon Sep 17 00:00:00 2001 From: Jaume Ramon Date: Thu, 20 Jul 2023 17:10:41 +0200 Subject: [PATCH] changed to TRUE the default for cross-validation --- R/Intlr.R | 4 ++-- R/LogisticReg.R | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/R/Intlr.R b/R/Intlr.R index b4b8a75..981e6fe 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 f569610..abac3fb 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 -- GitLab