#Region "Header"
Imports System
Imports System.Diagnostics
Imports Microsoft.VisualBasic
Imports AmosEngineLib
Imports AmosGraphics
Imports AmosEngineLib.AmosEngine.TMatrixID
Imports PBayes
#End Region
Module MainModule
    ' First Two Factor Model
  
	Sub Main()
        Dim Sem As New AmosEngine

        Try
            Sem.TextOutput()
            Sem.Standardized()
            Sem.Smc()

            Sem.BeginGroup( "c:\temp\cfa\values.sav")
            Sem.AStructure("privtown   = (1) economic + (1) e1")
            Sem.AStructure("govtresp   =   economic + (1) e2")
            Sem.AStructure("compete  =   economic + (1) e3")

            Sem.AStructure("homosex  =  (1) morals  + (1) e4")
            Sem.AStructure("abortion  =  morals  + (1) e5")
            Sem.AStructure("euthanas  =  morals  + (1) e6")
            Sem.FitModel()
        Finally
            Sem.Dispose()
        End Try
    End Sub
End Module