' Example of CFA in Amos 5.0 ' Two-factor model ' Sub Main () Dim sem As New AmosEngine sem.TextOutput sem.Standardized sem.Smc sem.BeginGroup "Ninput2.txt" sem.Structure "x1 = (1) NEUROT + (1) th1" sem.Structure "x2 = NEUROT + (1) th2" sem.Structure "x3 = NEUROT + (1) th3" sem.Structure "x4 = NEUROT + (1) th4" sem.Structure "x5 = (1) EXTRAV + (1) th5" sem.Structure "x6 = EXTRAV + (1) th6" sem.Structure "x7 = EXTRAV + (1) th7" sem.Structure "x8 = EXTRAV + (1) th8" sem.Structure "NEUROT <--> EXTRAV" End Sub