IBM® SPSS® Amos™ 28

The following example demonstrates the Admissible method

Module MainModule
    ' Admissible Method Example
    Public Sub Main()
        Dim Sem As New AmosEngineLib.AmosEngine
        Sem.TextOutput()
 
        Sem.BeginGroup(AmosEngine.AmosDir & "Examples\English\UserGuide.xls", "Fels_fem")
        Sem.GroupName("girls")
        Sem.AStructure("academic = GPA + attract + e1 (1)")
        Sem.AStructure("attract = height + weight + rating + academic + e2 (1)")
        Sem.AStructure("e2 <--> e1")
 
        Sem.BeginGroup(AmosEngine.AmosDir & "Examples\English\UserGuide.xls", "Fels_mal")
        Sem.GroupName("boys")
        Sem.AStructure("academic = GPA + attract + e1 (1)")
        Sem.AStructure("attract = height + weight + rating + academic + e2 (1)")
        Sem.AStructure("e2 <--> e1")
 
        If Sem.Admissible Then
            System.Diagnostics.Debug.WriteLine("Admissible")
            Else
        System.Diagnostics.Debug.WriteLine("Inadmissible")
        End If
 
        If Sem.Stable Then
            System.Diagnostics.Debug.WriteLine("Stable")
        Else
            System.Diagnostics.Debug.WriteLine("Unstable")
        End If
        Sem.Dispose()
    End Sub
End Module