gistfile1.r

# endog.variancesは足りない誤差項を自動的に追加するオプション
model.b0 <- specifyEquations(endog.variances=TRUE)
教育年数 = b1*年齢
職業威信 = c1*年齢 + c2*教育年数

# モデルの結合
model.b2 <- combineModels(model.a2, model.b0)
# 重複しているパスの削除
model.b2 <- removeRedundantPaths(model.b2)

sem.b <- sem(model.b2, cor.1, N=685, fixed.x="年齢")
summary(sem.b)