# NOT RUN {
library(psycho)
x <- psych::fa(psych::Thurstone.33, 2)
loadings <- format_loadings(x)$loadings
get_cfa_model(loadings, treshold = "max")
get_cfa_model(loadings, treshold = 0.1)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab