# NOT RUN {
data(HolzingerSwineford)
semmodel<-'
L1 =~ V1 + V2 + V3
L2 =~ V4 + V5 + V6
L3 =~ V7 + V8
L4 =~ V9 + V10 + V11
'
run.proj <- eqMI.projection(model = semmodel, data = HolzingerSwineford,
group = "school", meanstructure = TRUE)
# }
Run the code above in your browser using DataLab