IBM® SPSS® Amos™ 28

The following program fits Models A and B of Example 11. It displays the matrix of total effects for each group and model.

Imports AmosEngineLib.AmosEngine.TMatrixID
Module MainModule
    ' GetEstimatesEx Method Example
    Sub Main()
        Dim Sem As New AmosEngineLib.AmosEngine
        Dim am As New AmosEngineLib.AmosMatrix
        Dim ad As New AmosDebug.AmosDebug
        ad.DecimalPlaces = 4
 
        Sem.NeedEstimates(TotalEffects)
 
        Sem.BeginGroup(AmosEngine.AmosDir & "Examples\English\UserGuide.xls", "Fels_fem")
        Sem.GroupName("girls")
        Sem.AStructure("academic = (g1) GPA + (g2) attract + (1) e1")
        Sem.AStructure("attract = (g3) height + (g4) weight + (g5) rating + (g6) academic + (1) e2")
        Sem.AStructure("e2 <--> e1")
 
        Sem.BeginGroup(AmosEngine.AmosDir & "Examples\English\UserGuide.xls", "Fels_mal")
        Sem.GroupName("boys")
        Sem.AStructure("academic = (b1) GPA + (b2) attract + (1) e1")
        Sem.AStructure("attract = (b3) height + (b4) weight + (b5) rating + (b6) academic + (1) e2")
        Sem.AStructure("e2 <--> e1")
 
        Sem.Model("Model_A")
        Sem.Model("Model_B", "g1=b1", "g2=b2", "g3=b3", "g4=b4", "g5=b5", "g6=b6")
 
        'Print implied covariances for each model and each group
        Dim ModelNumber As Integer, GroupNumber As Integer
        For ModelNumber = 1 To 2
            Sem.FitModel(ModelNumber)
            For GroupNumber = 1 To 2
                Sem.GetEstimatesEx(TotalEffects, am, GroupNumber)
                ad.PrintX(am, "Model " & ModelNumber & ", Group " & GroupNumber)
            Next
        Next
 
        Sem.Dispose()
    End Sub
End Module