This example demonstrates the GetStandardErrorsEx method.
Imports AmosEngineLib.AmosEngine.TMatrixID
Module MainModule
' GetStandardErrorsEx Method Example
Sub Main()
Dim Sem As New AmosEngineLib.AmosEngine
Sem.NeedStandardErrors(FactorScoreWeights)
Sem.BeginGroup(AmosEngine.AmosDir & "Examples\English\UserGuide.xls", "Grnt_fem")
Sem.AStructure("visperc = (1) spatial + (1) err_v")
Sem.AStructure("cubes = spatial + (1) err_c")
Sem.AStructure("lozenges = spatial + (1) err_l")
Sem.AStructure("paragraph = (1) verbal + (1) err_p")
Sem.AStructure("sentence = verbal + (1) err_s")
Sem.AStructure("wordmean = verbal + (1) err_w")
Dim am As New AmosEngineLib.AmosMatrix
Dim ad As New AmosDebug.AmosDebug
ad.DecimalPlaces = 5
Sem.GetStandardErrorsEx(FactorScoreWeights, am)
ad.PrintX(am, "Standard errors for factor score weights")
Sem.Dispose()
End Sub
End Module