The following program fits the model of Example 4 and displays the sample covariance matrix.
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, j 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
For j = 0 To AM.NColumns - 1
Debug.Write(AM.X(i, j).ToString("#.0000").PadLeft(10))
Next
Debug.WriteLine("")
Next
Sem.Dispose()
End Sub
End Module