IBM® SPSS® Amos™ 28

This example demonstrates the GetPCLowerBoundsEx and GetPCUpperBoundsEx methods.

Imports AmosEngineLib.AmosEngine.TMatrixID
Module MainModule
    ' GetPCLowerBoundsEx, GetPCUpperBoundsEx Methods Example
    Sub Main()
        Dim Sem As New AmosEngineLib.AmosEngine
 
        Sem.Bootstrap(2000)
        Sem.ConfidencePC(90) '90% confidence intervals
 
        Sem.NeedPCLowerBounds(FactorScoreWeights)
        Sem.NeedPCUpperBounds(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
 
        Sem.GetPCLowerBoundsEx(FactorScoreWeights, am)
        ad.PrintX(am, "Confidence intervals on factor score weights -- lower bounds")
 
        Sem.GetPCUpperBoundsEx(FactorScoreWeights, am)
        ad.PrintX(am, "Confidence intervals on factor score weights -- upper bounds"
)
        Sem.Dispose()
    End Sub
End Module