data01 <- read.csv(file="path.csv")
data01

​

cov01 <- cov(data01)
cov01

​

library("sem")

model01 <- specifyEquations()
  gakuryoku = b1*kyomi + b2*ict
  kyomi     = b3*oya   + b4*ict
  ict       = b5*ses

sem01 <- sem(model=model01,S=cov01,N=nrow(data01),fixed.x=c("ses","oya"))
summary(sem01,fit.indices=c("GFI","AGFI","CFI","NFI","RMSEA","SRMR","AIC"))
standardizedCoefficients(sem01)

​

​

# パス図の出力
pathDiagram(sem01, ignore.double=FALSE, edge.labels="values", digits=2,standardize=TRUE)