huopian 发表于 2017-12-3 13:14
谢谢你!!!非常感谢!!!
只是amos中可以写语法吗,怎么进行操作呢?我以为只有mplus才可以写语法进行指 ...
#Region "Header"
Imports System
Imports Microsoft.VisualBasic
Imports AmosEngineLib
Imports AmosEngineLib.AmosEngine
Imports AmosEngineLib.AmosEngine.TMatrixID
Imports MiscAmosTypes
Imports MiscAmosTypes.cDatabaseFormat
#End Region
Public Class CUserValue : Implements IUserValue
Function Value( groupNumber As Integer, bootstrapSampleNumber As Integer, v As CValue) As Object Implements IUserValue.Value
' Your code goes here.
Dim x(6) As Double
x(0) = v.ParameterValue("H2a") * v.ParameterValue("H2b")
x(1) = v.ParameterValue("H3a") * v.ParameterValue("H3b")
x(2) = v.ParameterValue("H4a") * v.ParameterValue("H4b")
x(3) = x(0)+x(1)+x(2)
x(4) = x(0)-x(1)
x(5) = x(1)-x(2)
x(6) = x(2)-x(0)
Return x
End Function
#Region "Advanced"
Function Label( groupNumber As Integer) As Object Implements IUserValue.Label
' You can replace the following line.
Dim labels(6) As String
labels(0) = "FL-->Search-->OpLde"
labels(1) = "FL-->Con-->OpLde"
labels(2) = "FL-->Judg-->OpLde"
labels(3) = "Total Indirect Effects"
labels(4) = "Search -Con"
labels(5) = "Con-Judg"
labels(6) = "Judg-Search"
Return labels
End Function
Public Sub Initialize() Implements IUserValue.Initialize
End Sub
Sub CleanUp() Implements IUserValue.CleanUp
End Sub
#End Region
End Class