Change the default setting of convergence criteria

YangLabHKUST · Oct 17, 2023 · f394bd8 · f394bd8
1 parent 9c413bf
commit f394bd8
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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)