more conservative tolerances

helske · Oct 6, 2024 · c94ac22 · c94ac22
1 parent e6c1d84
commit c94ac22
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/fit_mnhmm.R b/R/fit_mnhmm.R
@@ -202,8 +202,8 @@ fit_mnhmm <- function(model, inits, init_sd, restarts, threads, penalty, ...) {
     if (is.null(dots$print_level)) dots$print_level <- 0
     if (is.null(dots$xtol_abs)) dots$xtol_abs <- 1e-2
     if (is.null(dots$ftol_abs)) dots$ftol_abs <- 1e-2
-    if (is.null(dots$xtol_rel)) dots$xtol_rel <- 1e-2
-    if (is.null(dots$xtol_rel)) dots$ftol_rel <- 1e-4
+    if (is.null(dots$xtol_rel)) dots$xtol_rel <- 1e-4
+    if (is.null(dots$xtol_rel)) dots$ftol_rel <- 1e-8
     if (is.null(dots$check_derivatives)) dots$check_derivatives <- FALSE
     out <- future.apply::future_lapply(seq_len(restarts), function(i) {
       init <- unlist(create_initial_values(

diff --git a/R/fit_nhmm.R b/R/fit_nhmm.R
@@ -157,8 +157,8 @@ fit_nhmm <- function(model, inits, init_sd, restarts, threads, penalty, ...) {
     if (is.null(dots$print_level)) dots$print_level <- 0
     if (is.null(dots$xtol_abs)) dots$xtol_abs <- 1e-2
     if (is.null(dots$ftol_abs)) dots$ftol_abs <- 1e-2
-    if (is.null(dots$xtol_rel)) dots$xtol_rel <- 1e-2
-    if (is.null(dots$xtol_rel)) dots$ftol_rel <- 1e-6
+    if (is.null(dots$xtol_rel)) dots$xtol_rel <- 1e-4
+    if (is.null(dots$xtol_rel)) dots$ftol_rel <- 1e-8
     if (is.null(dots$check_derivatives)) dots$check_derivatives <- FALSE
     out <- future.apply::future_lapply(seq_len(restarts), function(i) {
       init <- unlist(create_initial_values(