library(lavaan)
library(semPlot)
library(haven)
install.packages("lavaan")
"C:\Users\99405\Desktop\cfa.dta"
xueling_qingchun_gai<- read_dta("C:/Users/99405/Desktop/cfa.dta")
model <- '#measurement model 测量模型
DPD =~ a1 + a2 + a3
SEC =~ a4 + a5 + a6 + a7 + a8 + a9 + a10
MRH =~ a11 + a12 + a13 + a14
MPC =~ a15 + a16 + a17
IBO =~ a18 + a19 + a20
ABP =~ a21 + a22 + a23'
fit <- cfa(model, data = xueling_qingchun_gai)
summary(fit, standardized = TRUE, fit.measures = TRUE, rsquare = TRUE)
varTable(fit)