powered by
mcmc
coda
get_coda(model, loadings = TRUE, scores = FALSE, scale = attr(model, "type") != "gauss", positive = FALSE)
bfa