# NOT RUN {
library(psycho)
library(lavaan)
model <- " visual =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed =~ x7 + x8 + x9
visual ~ textual
textual ~ speed"
fit <- lavaan::sem(model, data = HolzingerSwineford1939)
models <- find_best_model(fit, latent = "visual =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed =~ x7 + x8 + x9")
# }
Run the code above in your browser using DataLab