# NOT RUN {
library(parameters)
# }
# NOT RUN {
library(BayesFM)
efa <- BayesFM::befa(mtcars, iter = 1000)
results <- model_parameters(efa, sort = TRUE)
results
attributes(results)$loadings_long
efa_to_cfa(results)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab