gistfile1.r

cor.3 <- read.moments(diag=FALSE,
names=c("年齢", "個人年収", "教育年数", "職業威信",
        "両親に服従", "権威に敬意", "指導者に頼る", "伝統重視"))
 0.14196474
-0.26729787  0.22629459
-0.02846850  0.39823207  0.27631486
 0.16409535  0.04589625 -0.09924375 -0.04642942
 0.05328158 -0.03399866 -0.04022705 -0.06889775  0.48134221
 0.18186547 -0.06105599 -0.09025803 -0.09414690  0.47089471  0.53716791
 0.16529548 -0.03123394 -0.07494290 -0.10559612  0.39698678  0.42569827  0.44360292

model.d0 <- specifyEquations()
権威主義 = d1*年齢 + d2*教育年数 + d3*職業威信 + d4*個人年収

model.d <- combineModels(model.b2, model.c3, model.d0)
model.d <- removeRedundantPaths(model.d)
sem.d <- sem(model.d, cor.3, 606, fixed.x="年齢")
summary(sem.d)