IBM® SPSS® Amos™ 28

The following program uses the Path, Cov and Var methods to specify Model C of Example 6.

Module MainModule
    ' Var Method Example
    Sub Main()
        Dim Sem As New AmosEngineLib.AmosEngine
        Sem.TextOutput()
        Sem.Standardized()
        Sem.Smc()
        Sem.AllImpliedMoments()
        Sem.FactorScoreWeights()
        Sem.TotalEffects()
 
        Sem.BeginGroup(AmosEngine.AmosDir & "Examples\English\UserGuide.xls", "Wheaton")
        Sem.Path("anomia67", "67_alienation", 1)
        Sem.Path("anomia67", "eps1", 1)
        Sem.Path("powles67", "67_alienation", "path_p")
        Sem.Path("powles67", "eps2", 1)
        Sem.Path("anomia71", "71_alienation", 1)
        Sem.Path("anomia71", "eps3", 1)
        Sem.Path("powles71", "71_alienation", "path_p")
        Sem.Path("powles71", "eps4", 1)
        Sem.Path("67_alienation", "ses")
        Sem.Path("67_alienation", "zeta1", 1)
        Sem.Path("71_alienation", "67_alienation")
        Sem.Path("71_alienation", "ses")
        Sem.Path("71_alienation", "zeta2", 1)
        Sem.Path("education", "ses", 1)
        Sem.Path("education", "delta1", 1)
        Sem.Path("SEI", "ses")
        Sem.Path("SEI", "delta2", 1)
        Sem.Cov("eps3", "eps1")
        Sem.Var("eps1", "var_a")
        Sem.Var("eps2", "var_p")
        Sem.Var("eps3", "var_a")
        Sem.Var("eps4", "var_p")
 
        Sem.Dispose()
    End Sub
End Module