test/multigroup: small tweaks

Author: Alexey Stukalov

test/examples/multigroup/build_models.jl

@@ -240,7 +240,7 @@ if !isnothing(specification_miss_g1)
 
     model_ml_varonly = Sem(
         specification = partable_varonly,
-        data = dat_missing,
+        data = dat_miss,
         semterm_column = :school,
         loss = SemFIML,
         observed = SemObservedMissing,

test/examples/multigroup/multigroup.jl

@@ -10,17 +10,18 @@ const SEM = StructuralEquationModels
 include(joinpath(chop(dirname(pathof(SEM)), tail = 3), "test/examples/helper.jl"))
 
 dat = example_data("holzinger_swineford")
-dat_missing = example_data("holzinger_swineford_missing")
-solution_lav = example_data("holzinger_swineford_solution")
+dat.school = Symbol.(replace.(dat.school, "-" => "_"))
+
+dat_miss = example_data("holzinger_swineford_missing")
+dat_miss.school = Symbol.(replace.(dat_miss.school, "-" => "_"))
 
-dat_g1 = dat[dat.school .== "Pasteur", :]
-dat_g2 = dat[dat.school .== "Grant-White", :]
+solution_lav = example_data("holzinger_swineford_solution")
 
-dat_miss_g1 = dat_missing[dat_missing.school .== "Pasteur", :]
-dat_miss_g2 = dat_missing[dat_missing.school .== "Grant-White", :]
+dat_g1 = dat[dat.school .== :Pasteur, :]
+dat_g2 = dat[dat.school .== :Grant_White, :]
 
-dat.school = ifelse.(dat.school .== "Pasteur", :Pasteur, :Grant_White)
-dat_missing.school = ifelse.(dat_missing.school .== "Pasteur", :Pasteur, :Grant_White)
+dat_miss_g1 = dat_miss[dat_miss.school .== :Pasteur, :]
+dat_miss_g2 = dat_miss[dat_miss.school .== :Grant_White, :]
 
 ############################################################################################
 ### specification - RAMMatrices