Filter
Top Products
125
Exploratory Analysis
Model C
The following program fits Model C. It is saved as Ex06–c.vb.
Sub Main()
Dim Sem As New AmosEngine
Try
Sem.TextOutput()
Sem.Standardized()
Sem.Smc()
Sem.AllImpliedMoments()
Sem.FactorScoreWeights()
Sem.TotalEffects()
Sem.BeginGroup(Sem.AmosDir & "Examples\Wheaton.sav")
Sem.AStructure("anomia67 <--- 67_alienation (1)")
Sem.AStructure("anomia67 <--- eps1 (1)")
Sem.AStructure("powles67 <--- 67_alienation (path_p)")
Sem.AStructure("powles67 <--- eps2 (1)")
Sem.AStructure("anomia71 <--- 71_alienation (1)")
Sem.AStructure("anomia71 <--- eps3 (1)")
Sem.AStructure("powles71 <--- 71_alienation (path_p)")
Sem.AStructure("powles71 <--- eps4 (1)")
Sem.AStructure("67_alienation <--- ses")
Sem.AStructure("67_alienation <--- zeta1 (1)")
Sem.AStructure("71_alienation <--- 67_alienation")
Sem.AStructure("71_alienation <--- ses")
Sem.AStructure("71_alienation <--- zeta2 (1)")
Sem.AStructure("educatio <--- ses (1)")
Sem.AStructure("educatio <--- delta1 (1)")
Sem.AStructure("SEI <--- ses")
Sem.AStructure("SEI <--- delta2 (1)")
Sem.AStructure("eps3 <--> eps1")
Sem.AStructure("eps1 (var_a)")
Sem.AStructure("eps2 (var_p)")
Sem.AStructure("eps3 (var_a)")
Sem.AStructure("eps4 (var_p)")
Sem.FitModel()
Finally
Sem.Dispose()
End Try
End Sub