IBM® SPSS® Amos™ 28

This example demonstrates the Mods method.

Module MainModule
    ' Mods Method Example
    Sub Main()
        Dim Sem As New AmosEngineLib.AmosEngine
 
        Sem.Mods(4)
 
        Sem.TextOutput()
 
        Sem.BeginGroup(AmosEngine.AmosDir & "Examples\English\UserGuide.xls", "Wheaton")
        Sem.AStructure("anomia67 <--- 67_alienation (1)")
        Sem.AStructure("anomia67 <--- eps1 (1)")
        Sem.AStructure("powles67 <--- 67_alienation")
        Sem.AStructure("powles67 <--- eps2 (1)")
        Sem.AStructure("anomia71 <--- 71_alienation (1)")
        Sem.AStructure("anomia71 <--- eps3 (1)")
        Sem.AStructure("powles71 <--- 71_alienation")
        Sem.AStructure("powles71 <--- eps4 (1)")
        Sem.AStructure("67_alienation <--- ses")
        Sem.AStructure("67_alienation <--- zeta1 (1)")
        Sem.AStructure("71_alienation <--- 67_alienation")
        Sem.AStructure("71_alienation <--- ses")
        Sem.AStructure("71_alienation <--- zeta2 (1)")
        Sem.AStructure("education <--- ses (1)")
        Sem.AStructure("education <--- delta1 (1)")
        Sem.AStructure("SEI <--- ses")
        Sem.AStructure("SEI <--- delta2 (1)")
 
        Sem.Dispose()
    End Sub
End Module