Filter
Top Products
99
Unobserved Variables
Model B
The following program fits Model B:
Sub Main()
Dim Sem As New AmosEngine
Try
Sem.TextOutput()
Sem.Standardized()
Sem.Smc()
Sem.BeginGroup(Sem.AmosDir & "Examples\Warren9v.wk1")
Sem.AStructure("1performance <--- performance (1)")
Sem.AStructure("2performance <--- performance (1)")
Sem.AStructure("1knowledge <--- knowledge (1)")
Sem.AStructure("2knowledge <--- knowledge (1)")
Sem.AStructure("1value <--- value (1)")
Sem.AStructure("2value <--- value (1)")
Sem.AStructure("1satisfaction <--- satisfaction (1)")
Sem.AStructure("2satisfaction <--- satisfaction (" & CStr(1.2) & ")")
Sem.AStructure("performance <--- knowledge")
Sem.AStructure("performance <--- value")
Sem.AStructure("performance <--- satisfaction")
Sem.AStructure("performance <--- error9 (1)")
Sem.AStructure("1performance <--- error1 (1)")
Sem.AStructure("2performance <--- error2 (1)")
Sem.AStructure("1knowledge <--- error3 (1)")
Sem.AStructure("2knowledge <--- error4 (1)")
Sem.AStructure("1value <--- error5 (1)")
Sem.AStructure("2value <--- error6 (1)")
Sem.AStructure("1satisfaction <--- error7 (1)")
Sem.AStructure("2satisfaction <--- error8 (" & CStr(1.095445) & ")")
Sem.AStructure("error1 (alpha)")
Sem.AStructure("error2 (alpha)")
Sem.AStructure("error8 (delta)")
Sem.AStructure("error7 (delta)")
Sem.AStructure("error6 (gamma)")
Sem.AStructure("error5 (gamma)")
Sem.AStructure("error4 (beta)")
Sem.AStructure("error3 (beta)")
Sem.FitModel()
Finally
Sem.Dispose()
End Try
End Sub