From e70ed46cc68347331f55a012656fd87c11488c53 Mon Sep 17 00:00:00 2001
From: WANG Zhiwei <48282751+statwangz@users.noreply.github.com>
Date: Mon, 16 Oct 2023 02:17:24 +0800
Subject: [PATCH] Change the default setting for the convergence criterion

---
 R/mfairSingleFactor.R | 6 +++---
 man/fitSFFully.Rd     | 2 +-
 man/fitSFMissing.Rd   | 2 +-
 man/fitSFSparse.Rd    | 2 +-
 4 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/R/mfairSingleFactor.R b/R/mfairSingleFactor.R
index 4f2f62f..9f635e5 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-5,
+                        iter_max = 5e+3, tol_stage1 = 0.1, tol_stage2 = 1e-6,
                         verbose_sf = TRUE, verbose_loop = TRUE,
                         save_tree_list = TRUE) {
   N <- nrow(Y)
@@ -188,7 +188,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-5,
+                         iter_max = 5e+3, tol_stage1 = 0.1, tol_stage2 = 1e-6,
                          verbose_sf = TRUE, verbose_loop = TRUE,
                          save_tree_list = TRUE) {
   N <- nrow(Y)
@@ -357,7 +357,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-5,
+                       iter_max = 5e+3, tol_stage1 = 0.1, tol_stage2 = 1e-6,
                        verbose_sf = TRUE, verbose_loop = TRUE,
                        save_tree_list = TRUE) {
   N <- nrow(Y)
diff --git a/man/fitSFFully.Rd b/man/fitSFFully.Rd
index 6734f14..40091dc 100644
--- a/man/fitSFFully.Rd
+++ b/man/fitSFFully.Rd
@@ -13,7 +13,7 @@ fitSFFully(
   stage1 = TRUE,
   iter_max = 5000,
   tol_stage1 = 0.1,
-  tol_stage2 = 1e-05,
+  tol_stage2 = 1e-06,
   verbose_sf = TRUE,
   verbose_loop = TRUE,
   save_tree_list = TRUE
diff --git a/man/fitSFMissing.Rd b/man/fitSFMissing.Rd
index ce16846..8d9b23e 100644
--- a/man/fitSFMissing.Rd
+++ b/man/fitSFMissing.Rd
@@ -14,7 +14,7 @@ fitSFMissing(
   stage1 = TRUE,
   iter_max = 5000,
   tol_stage1 = 0.1,
-  tol_stage2 = 1e-05,
+  tol_stage2 = 1e-06,
   verbose_sf = TRUE,
   verbose_loop = TRUE,
   save_tree_list = TRUE
diff --git a/man/fitSFSparse.Rd b/man/fitSFSparse.Rd
index 224033f..ba94e7b 100644
--- a/man/fitSFSparse.Rd
+++ b/man/fitSFSparse.Rd
@@ -14,7 +14,7 @@ fitSFSparse(
   stage1 = TRUE,
   iter_max = 5000,
   tol_stage1 = 0.1,
-  tol_stage2 = 1e-05,
+  tol_stage2 = 1e-06,
   verbose_sf = TRUE,
   verbose_loop = TRUE,
   save_tree_list = TRUE