if (FALSE) { # interactive()
library(lavaan)
model <- '
visual =~ x1 + loadingx2*x2 + x3
textual =~ x4 + x5 + x6
speed =~ x7 + x8 + x9
'
fit <- cfa(model, data = HolzingerSwineford1939)
plot_lavaan(fit)
}
Run the code above in your browser using DataLab