# lavaanパッケージでSEM

d <- read.csv("http://home.hiroshima-u.ac.jp/ksatoh/documents/Kion.csv")

library(lavaan)

# モデル式の書き方

# =~  :        潜在変数の定義

# ~  : 回帰 (単方向矢印 <-)

# ~~  :        共変 (双方向矢印 <-> )

# ~1  :        切片

# ~0* :        直交 (f1 ~ 0*f2 とするとf1とf2が直交すると仮定)

model.kion <- '

 ido~keido

 kion~ido

 kion~hyoukou

'

sem.kion <- cfa(model.kion, data=d, std.lv=T, mimic="EQS")

summary(sem.kion, fit.measures=T, standardize=T)