IBM® SPSS® Amos™ 28

The following program fits a model that is the same as Example 8, except that the model is not identified.

Module MainModule
    ' AllowUnidentified Method Example
    Public Sub Main()
        Dim Sem As New AmosEngineLib.AmosEngine
 
        Sem.AllowUnidentified()
 
        Sem.TextOutput()
 
        Sem.BeginGroup(AmosEngine.AmosDir & "Examples\English\UserGuide.xls", "Grnt_fem")
 
        Sem.AStructure("visperc = spatial + (1) err_v")
        Sem.AStructure("cubes = spatial + (1) err_c")
        Sem.AStructure("lozenges = spatial + (1) err_l")
 
        Sem.AStructure("paragraph = verbal + (1) err_p")
        Sem.AStructure("sentence = verbal + (1) err_s")
        Sem.AStructure("wordmean = verbal + (1) err_w")
 
        Sem.Dispose()
    End Sub
End Module