IBM® SPSS® Amos™ 28

The following program fits the model of Example 4 and displays the sample covariance matrix with 5 decimal places of precision. Each matrix element is displayed in a field that is 12 characters wide.

Imports AmosEngineLib
Imports AmosEngineLib.AmosEngine.TMatrixID
Module MainModule
    Sub Main()
        Dim Sem As New AmosEngine
        Dim AM As New AmosMatrix
        Dim AD As New AmosDebug.AmosDebug
        Dim i As Long, j As Long
        Sem.NeedEstimates(SampleCovariances)
 
        Sem.BeginGroup(AmosEngine.AmosDir & "Examples\English\UserGuide.xls", "Warren5v")
        Sem.AStructure("performance = knowledge + value + satisfaction + error (1)")
 
        Sem.GetEstimatesEx(SampleCovariances, AM)
 
        AD.FieldWidth = 12
        AD.DecimalPlaces = 5
        AD.PrintX(AM, "Sample Covariances")
 
        Sem.Dispose()
    End Sub
End Module