increase tolerance for bootstrap test

Author: Maximilian-Stefan-Ernst

test/examples/helper.jl

@@ -136,20 +136,27 @@ function test_estimates(
     end
 end
 
-function test_bootstrap(model_fit, spec; compare_hessian = true, compare_bs = true, n_boot = 500)
+function test_bootstrap(
+        model_fit,
+        spec;
+        compare_hessian = true,
+        rtol_hessian = 0.2,
+        compare_bs = true,
+        rtol_bs = 0.1,
+        n_boot = 500)
     se_bs = se_bootstrap(model_fit, spec; n_boot = n_boot)
     # hessian and bootstrap se are close
     if compare_hessian
         se_he = se_hessian(model_fit)
-        @test isapprox(se_bs, se_he, rtol = 0.2)
+        @test isapprox(se_bs, se_he, rtol = rtol_hessian)
     end
     # se_bootstrap and bootstrap |> se are close
     if compare_bs
         bs_samples = bootstrap(model_fit, spec; n_boot = n_boot)
         @test bs_samples[:n_converged] > 0.95*n_boot
         bs_samples = cat(bs_samples[:samples][BitVector(bs_samples[:converged])]..., dims = 2)
         se_bs_2 = sqrt.(var(bs_samples, corrected = false, dims = 2))
-        @test isapprox(se_bs_2, se_bs, rtol = 0.1)
+        @test isapprox(se_bs_2, se_bs, rtol = rtol_bs)
     end
 end
 

test/examples/multigroup/build_models.jl

@@ -83,7 +83,7 @@ end
         lav_col = :se,
         lav_groups = Dict(:Pasteur => 1, :Grant_White => 2),
     )
-    test_bootstrap(solution_ml, partable)
+    test_bootstrap(solution_ml, partable, rtol_hessian = 0.3)
     smoketest_CI_z(solution_ml, partable)
 
     solution_ml = fit(model_ml_multigroup2)
@@ -412,7 +412,7 @@ if !isnothing(specification_miss_g1)
             lav_col = :se,
             lav_groups = Dict(:Pasteur => 1, :Grant_White => 2),
         )
-        test_bootstrap(solution, partable_miss)
+        test_bootstrap(solution, partable_miss, rtol_hessian = 0.3)
         smoketest_CI_z(solution, partable_miss)
 
         solution = fit(semoptimizer, model_ml_multigroup2)