IBM® SPSS® Amos™ 28

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