IBM® SPSS® Amos™ 28

The following program uses the Path, Intercept and Mean methods to specify the model in Example 14.

Module MainModule
    ' Intercept Method Example
    Sub Main()
        Dim Sem As New AmosEngineLib.AmosEngine
 
        Sem.TextOutput()
        Sem.Standardized()
        Sem.Smc()
        Sem.ImpliedMoments()
        Sem.SampleMoments()
 
        Sem.ModelMeansAndIntercepts()
 
        Sem.BeginGroup(AmosEngine.AmosDir & "Examples\English\UserGuide.xls", "Warren5v")
        Sem.Path("performance", "knowledge")
        Sem.Path("performance", "value")
        Sem.Path("performance", "satisfaction")
        Sem.Path("performance", "error", 1)
        Sem.Intercept("performance")
        Sem.Mean("knowledge")
        Sem.Mean("value")
        Sem.Mean("satisfaction")
 
        Sem.Dispose()
    End Sub
End Module