# NOT RUN {
library(psych)
library(lavaan)
library(parameters)
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)
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab