tighter tolerances

helske · Jan 6, 2025 · 69dcb83 · 69dcb83
1 parent d5989db
commit 69dcb83
Show file tree

Hide file tree

Showing 3 changed files with 18 additions and 18 deletions.
diff --git a/R/fit_fanhmm.R b/R/fit_fanhmm.R
@@ -22,8 +22,8 @@ fit_fanhmm <- function(model, inits, init_sd, restarts, lambda, method,
     list(
       ftol_abs = 0,
       xtol_abs = 0,
-      ftol_rel = 1e-8,
-      xtol_rel = 1e-6,
+      ftol_rel = 1e-12,
+      xtol_rel = 1e-8,
       maxeval = 1e4,
       print_level = 0,
       algorithm = "NLOPT_LD_LBFGS",
@@ -35,8 +35,8 @@ fit_fanhmm <- function(model, inits, init_sd, restarts, lambda, method,
     list(
       ftol_abs = 0,
       xtol_abs = 0,
-      ftol_rel = 1e-6,
-      xtol_rel = 1e-4,
+      ftol_rel = 1e-8,
+      xtol_rel = 1e-6,
       maxeval = 1e4,
       print_level = 0,
       algorithm = "NLOPT_LD_LBFGS",
@@ -54,8 +54,8 @@ fit_fanhmm <- function(model, inits, init_sd, restarts, lambda, method,
     list(
       ftol_abs = 0,
       xtol_abs = 0,
-      ftol_rel = 1e-6,
-      xtol_rel = 1e-4,
+      ftol_rel = 1e-8,
+      xtol_rel = 1e-6,
       maxeval = 100,
       print_level = 0
     ),

diff --git a/R/fit_mnhmm.R b/R/fit_mnhmm.R
@@ -22,8 +22,8 @@ fit_mnhmm <- function(model, inits, init_sd, restarts, lambda, method,
     list(
       ftol_abs = 0,
       xtol_abs = 0,
-      ftol_rel = 1e-8,
-      xtol_rel = 1e-6,
+      ftol_rel = 1e-12,
+      xtol_rel = 1e-8,
       maxeval = 1e4,
       print_level = 0,
       algorithm = "NLOPT_LD_LBFGS",
@@ -35,8 +35,8 @@ fit_mnhmm <- function(model, inits, init_sd, restarts, lambda, method,
     list(
       ftol_abs = 0,
       xtol_abs = 0,
-      ftol_rel = 1e-6,
-      xtol_rel = 1e-4,
+      ftol_rel = 1e-8,
+      xtol_rel = 1e-6,
       maxeval = 1e4,
       print_level = 0,
       algorithm = "NLOPT_LD_LBFGS",
@@ -54,8 +54,8 @@ fit_mnhmm <- function(model, inits, init_sd, restarts, lambda, method,
     list(
       ftol_abs = 0,
       xtol_abs = 0,
-      ftol_rel = 1e-6,
-      xtol_rel = 1e-4,
+      ftol_rel = 1e-8,
+      xtol_rel = 1e-6,
       maxeval = 100,
       print_level = 0
     ),

diff --git a/R/fit_nhmm.R b/R/fit_nhmm.R
@@ -22,8 +22,8 @@ fit_nhmm <- function(model, inits, init_sd, restarts, lambda, method,
     list(
       ftol_abs = 0,
       xtol_abs = 0,
-      ftol_rel = 1e-8,
-      xtol_rel = 1e-6,
+      ftol_rel = 1e-12,
+      xtol_rel = 1e-8,
       maxeval = 1e4,
       print_level = 0,
       algorithm = "NLOPT_LD_LBFGS",
@@ -35,8 +35,8 @@ fit_nhmm <- function(model, inits, init_sd, restarts, lambda, method,
     list(
       ftol_abs = 0,
       xtol_abs = 0,
-      ftol_rel = 1e-6,
-      xtol_rel = 1e-4,
+      ftol_rel = 1e-8,
+      xtol_rel = 1e-6,
       maxeval = 1e4,
       print_level = 0,
       algorithm = "NLOPT_LD_LBFGS",
@@ -54,8 +54,8 @@ fit_nhmm <- function(model, inits, init_sd, restarts, lambda, method,
     list(
       ftol_abs = 0,
       xtol_abs = 0,
-      ftol_rel = 1e-6,
-      xtol_rel = 1e-4,
+      ftol_rel = 1e-8,
+      xtol_rel = 1e-6,
       maxeval = 100,
       print_level = 0
     ),