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)