From f394bd8b461b8f45b08f61a8249377a12389facf Mon Sep 17 00:00:00 2001
From: WANG Zhiwei <48282751+statwangz@users.noreply.github.com>
Date: Tue, 17 Oct 2023 20:51:34 +0800
Subject: [PATCH] Change the default setting of convergence criteria

---
 R/mfairSingleFactor.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/mfairSingleFactor.R b/R/mfairSingleFactor.R
index 494de69..16fffde 100644
--- a/R/mfairSingleFactor.R
+++ b/R/mfairSingleFactor.R
@@ -23,7 +23,7 @@ fitSFSparse <- function(Y, X, init,
                         obs_indices,
                         learning_rate, tree_parameters,
                         stage1 = TRUE,
-                        iter_max = 5e+3, tol_stage1 = 0.1, tol_stage2 = 1e-6,
+                        iter_max = 5e+3, tol_stage1 = 0.1, tol_stage2 = 1e-8,
                         verbose_sf = TRUE, verbose_loop = TRUE,
                         save_tree_list = TRUE) {
   N <- nrow(Y)
@@ -192,7 +192,7 @@ fitSFMissing <- function(Y, X, init,
                          obs_indices,
                          learning_rate, tree_parameters,
                          stage1 = TRUE,
-                         iter_max = 5e+3, tol_stage1 = 0.1, tol_stage2 = 1e-6,
+                         iter_max = 5e+3, tol_stage1 = 0.1, tol_stage2 = 1e-8,
                          verbose_sf = TRUE, verbose_loop = TRUE,
                          save_tree_list = TRUE) {
   N <- nrow(Y)
@@ -361,7 +361,7 @@ fitSFMissing <- function(Y, X, init,
 fitSFFully <- function(Y, X, init,
                        learning_rate, tree_parameters,
                        stage1 = TRUE,
-                       iter_max = 5e+3, tol_stage1 = 0.1, tol_stage2 = 1e-6,
+                       iter_max = 5e+3, tol_stage1 = 0.1, tol_stage2 = 1e-8,
                        verbose_sf = TRUE, verbose_loop = TRUE,
                        save_tree_list = TRUE) {
   N <- nrow(Y)