Filter
Top Products
226
Example 14
The following program for the model of Example 14 gives all the same results, plus
mean and intercept estimates. This program is saved as Ex14.vb.
Note the
Sem.ModelMeansAndIntercepts statement that causes Amos to treat means and
intercepts as explicit model parameters. Another change from Example 4 is that there
is now an additional pair of empty parentheses and a plus sign in the AStructure line.
The extra pair of empty parentheses represents the intercept in the regression equation.
The
Sem.Mean statements request estimates for the means of knowledge, value, and
satisfaction. Each exogenous variable with a mean other than 0 has to appear as the
argument in a call to the
Mean method. If the Mean method had not been used in this
program, Amos would have fixed the means of the exogenous variables at 0.
Intercept parameters can be specified by an extra pair of parentheses in a
Sem.AStructure command (as we just showed) or by using the Intercept method. In the
following program, the
Intercept method is used to specify that there is an intercept in
the regression equation for predicting performance:
Sub Main()
Dim Sem As New AmosEngine
Try
Sem.TextOutput()
Sem.Standardized()
Sem.Smc()
Sem.ImpliedMoments()
Sem.SampleMoments()
Sem.ModelMeansAndIntercepts()
Sem.BeginGroup( _
Sem.AmosDir & "Examples\UserGuide.xls", "Warren5v")
Sem.AStructure( _
"performance = () + knowledge + value + satisfaction + error (1)")
Sem.Mean("knowledge")
Sem.Mean("value")
Sem.Mean("satisfaction")
Sem.FitModel()
Finally
Sem.Dispose()
End Try
End Sub