tests: use update_se_hessian!()

Author: alyst

src/StructuralEquationModels.jl

@@ -142,6 +142,7 @@ export AbstractSem,
     update_partable!,
     update_estimate!,
     update_start!,
+    update_se_hessian!,
     Fixed,
     fixed,
     Start,

test/examples/multigroup/build_models.jl

@@ -34,12 +34,7 @@ end
         atol = 1e-7,
     )
 
-    update_partable!(
-        partable,
-        identifier(model_ml_multigroup),
-        se_hessian(solution_ml),
-        :se,
-    )
+    update_se_hessian!(partable, solution_ml)
     @test compare_estimates(
         partable,
         solution_lav[:parameter_estimates_ml];
@@ -100,12 +95,7 @@ end
         atol = 1e-7,
     )
 
-    update_partable!(
-        partable_s,
-        identifier(model_ml_multigroup),
-        se_hessian(solution_ml),
-        :se,
-    )
+    update_se_hessian!(partable_s, solution_ml)
     @test compare_estimates(
         partable_s,
         solution_lav[:parameter_estimates_ml];
@@ -207,12 +197,7 @@ end
         atol = 1e-5,
     )
 
-    update_partable!(
-        partable,
-        identifier(model_ls_multigroup),
-        se_hessian(solution_ls),
-        :se,
-    )
+    update_se_hessian!(partable, solution_ls)
     @test compare_estimates(
         partable,
         solution_lav[:parameter_estimates_ls];
@@ -298,12 +283,7 @@ if !isnothing(specification_miss_g1)
             atol = 0,
         )
 
-        update_partable!(
-            partable_miss,
-            identifier(model_ml_multigroup),
-            se_hessian(solution),
-            :se,
-        )
+        update_se_hessian!(partable_miss, solution)
         @test compare_estimates(
             partable_miss,
             solution_lav[:parameter_estimates_fiml];

test/examples/political_democracy/by_parts.jl

@@ -113,7 +113,7 @@ end
     solution_ml = sem_fit(model_ml)
     test_fitmeasures(fit_measures(solution_ml), solution_lav[:fitmeasures_ml]; atol = 1e-3)
 
-    update_partable!(partable, identifier(model_ml), se_hessian(solution_ml), :se)
+    update_se_hessian!(partable, solution_ml)
     @test compare_estimates(
         partable,
         solution_lav[:parameter_estimates_ml];
@@ -134,7 +134,7 @@ end
     )
     @test (fm[:AIC] === missing) & (fm[:BIC] === missing) & (fm[:minus2ll] === missing)
 
-    update_partable!(partable, identifier(model_ls_sym), se_hessian(solution_ls), :se)
+    update_se_hessian!(partable, solution_ls)
     @test compare_estimates(
         partable,
         solution_lav[:parameter_estimates_ls];
@@ -278,7 +278,7 @@ end
         atol = 1e-3,
     )
 
-    update_partable!(partable_mean, identifier(model_ml), se_hessian(solution_ml), :se)
+    update_se_hessian!(partable_mean, solution_ml)
     @test compare_estimates(
         partable_mean,
         solution_lav[:parameter_estimates_ml_mean];
@@ -299,7 +299,7 @@ end
     )
     @test (fm[:AIC] === missing) & (fm[:BIC] === missing) & (fm[:minus2ll] === missing)
 
-    update_partable!(partable_mean, identifier(model_ls), se_hessian(solution_ls), :se)
+    update_se_hessian!(partable_mean, solution_ls)
     @test compare_estimates(
         partable_mean,
         solution_lav[:parameter_estimates_ls_mean];
@@ -371,7 +371,7 @@ end
         atol = 1e-3,
     )
 
-    update_partable!(partable_mean, identifier(model_ml), se_hessian(solution_ml), :se)
+    update_se_hessian!(partable_mean, solution_ml)
     @test compare_estimates(
         partable_mean,
         solution_lav[:parameter_estimates_fiml];

test/examples/political_democracy/constructor.jl

@@ -130,7 +130,7 @@ end
     solution_ml = sem_fit(model_ml)
     test_fitmeasures(fit_measures(solution_ml), solution_lav[:fitmeasures_ml]; atol = 1e-3)
 
-    update_partable!(partable, identifier(model_ml), se_hessian(solution_ml), :se)
+    update_se_hessian!(partable, solution_ml)
     @test compare_estimates(
         partable,
         solution_lav[:parameter_estimates_ml];
@@ -151,7 +151,7 @@ end
     )
     @test ismissing(fm[:AIC]) && ismissing(fm[:BIC]) && ismissing(fm[:minus2ll])
 
-    update_partable!(partable, identifier(model_ls_sym), se_hessian(solution_ls), :se)
+    update_se_hessian!(partable, solution_ls)
     @test compare_estimates(
         partable,
         solution_lav[:parameter_estimates_ls];
@@ -304,7 +304,7 @@ end
         atol = 0.002,
     )
 
-    update_partable!(partable_mean, identifier(model_ml), se_hessian(solution_ml), :se)
+    update_se_hessian!(partable_mean, solution_ml)
     @test compare_estimates(
         partable_mean,
         solution_lav[:parameter_estimates_ml_mean];
@@ -325,7 +325,7 @@ end
     )
     @test ismissing(fm[:AIC]) && ismissing(fm[:BIC]) && ismissing(fm[:minus2ll])
 
-    update_partable!(partable_mean, identifier(model_ls), se_hessian(solution_ls), :se)
+    update_se_hessian!(partable_mean, solution_ls)
     @test compare_estimates(
         partable_mean,
         solution_lav[:parameter_estimates_ls_mean];
@@ -408,7 +408,7 @@ end
         atol = 1e-3,
     )
 
-    update_partable!(partable_mean, identifier(model_ml), se_hessian(solution_ml), :se)
+    update_se_hessian!(partable_mean, solution_ml)
     @test compare_estimates(
         partable_mean,
         solution_lav[:parameter_estimates_fiml];

test/unit_tests/bootstrap.jl

@@ -1,6 +1,5 @@
 solution_ml = sem_fit(model_ml)
 bs = se_bootstrap(solution_ml; n_boot = 20)
-se = se_hessian(solution_ml)
 
-update_partable!(partable, solution_ml, se, :se)
+update_se_hessian!(partable, solution_ml)
 update_partable!(partable, solution_ml, bs, :se_boot)