# NOT RUN {
HS.model <- ' visual =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed =~ x7 + x8 + x9 '
fit <- lavaan::cfa(HS.model,
data = lavaan::HolzingerSwineford1939,
group = "school")
lavaan_dmacs(fit, RefGroup = "Pasteur")
# }
Run the code above in your browser using DataLab