IBM® SPSS® Amos™ 28

This example demonstrates the FitUnbiasedMoments method.

Module MainModule
    ' FitUnbiasedMoments Method Example
    Sub Main()
        Dim Sem As New AmosEngineLib.AmosEngine
 
        Sem.TextOutput()
 
        Sem.InputUnbiasedMoments()
        Sem.FitUnbiasedMoments()
 
        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 (path_p)")
        Sem.AStructure("powles67 <--- eps2 (1)")
        Sem.AStructure("anomia71 <--- 71_alienation (1)")
        Sem.AStructure("anomia71 <--- eps3 (1)")
        Sem.AStructure("powles71 <--- 71_alienation (path_p)")
        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.AStructure("eps3 <--> eps1")
        Sem.AStructure("eps1 (var_a)")
        Sem.AStructure("eps2 (var_p)")
        Sem.AStructure("eps3 (var_a)")
        Sem.AStructure("eps4 (var_p)")
 
        Sem.Dispose()
    End Sub
End Module