# NOT RUN {
library(parameters)
if (require("psych") && require("lavaan")) {
efa <- psych::fa(attitude, nfactors = 3)
model1 <- efa_to_cfa(efa)
model2 <- efa_to_cfa(efa, threshold = 0.3)
anova(
lavaan::cfa(model1, data = attitude),
lavaan::cfa(model2, data = attitude)
)
}
# }
Run the code above in your browser using DataLab