# \donttest{
library("dplyr")
# Load data:
data(StarWars)
# Simple CFA:
Lambda <- matrix(1, 4)
mod <- lvm(StarWars, lambda = Lambda, vars = c("Q1","Q5","Q6","Q7"),
identification = "variance", latents = "Originals")
mod <- mod %>% runmodel %>% addfit
# Write output:
write_psychonetrics(mod, file = tempfile(fileext = ".txt"))
# }
Run the code above in your browser using DataLab