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 in scientific format. 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
        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.Scientific()
        AD.FieldWidth = 12
        AD.DecimalPlaces = 5
        AD.PrintX(AM, "Sample Covariances")
 
        Sem.Dispose()
    End Sub
End Module