change convergence criteria

caravagnalab · Dec 18, 2024 · c1d9d6c · c1d9d6c
1 parent 4fd5faa
commit c1d9d6c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/fit_variational_h.R b/R/fit_variational_h.R
@@ -17,7 +17,7 @@
 #'
 #' @export
 
-fit_variational_h <- function(input_data, max_attempts = 2, initialization = NULL, INIT = TRUE, initial_iter = 100, grad_samples = 100, elbo_samples = 100, tolerance = 0.01) {
+fit_variational_h <- function(input_data, max_attempts = 2, initialization = NULL, INIT = TRUE, initial_iter = 100, grad_samples = 200, elbo_samples = 200, tolerance = 0.01) {
   # Load the Stan model
   model <- get_model("hierarchical") 
   # cmdstanr::cmdstan_model("../models/timing_mixed_simple.stan")