The following program displays the Amos engine's internal variable numbers for the observed variables in the model of Example 4.
Imports System.Diagnostics
Imports AmosEngineLib
Imports AmosEngineLib.AmosEngine.TMatrixID
Module MainModule
Sub Main()
Dim Sem As New AmosEngine
Dim AM As New AmosMatrix
Dim i As Integer
Sem.NeedEstimates(SampleCovariances)
Sem.BeginGroup(AmosEngine.AmosDir & "Examples\English\UserGuide.xls", "Warren5v")
Sem.AStructure("performance = knowledge + value + satisfaction + error (1)")
Sem.GetEstimatesEx(SampleCovariances, AM)
For i = 0 To AM.NRows - 1
Debug.WriteLine(AM.RowNumber(i))
Next
Sem.Dispose()
End Sub
End Module