increase elbo_evaluations

R/fit_h.R

@@ -18,7 +18,7 @@
 #'
 #' @return   results_and_data = list(data = input_data_list, results = results, output_files_list = output_files_list)
 #' @export
-fit_h = function(x, max_attempts=2, INIT=TRUE, tolerance = 0.0001, possible_k = c("2:1", "2:2", "2:0"), alpha = .05, min_mutations_number = 2, n_components = 0, initial_iter=200, grad_samples=10, elbo_samples=10)
+fit_h = function(x, max_attempts=2, INIT=TRUE, tolerance = 0.0001, possible_k = c("2:1", "2:2", "2:0"), alpha = .05, min_mutations_number = 2, n_components = 0, initial_iter=200, grad_samples=10, elbo_samples=200)
 {
   # stopifnot(inherits(x, 'cnaqc'))