efa <- efa_fit(test_models$baseline$cormat, n_factors = 3, N = 500,
estimator = "PAF", rotation = "oblimin")
fs <- efa_scores(test_models$baseline$cormat, f = efa)
fs
summary(fs)
# format() returns the same lines as a character vector:
writeLines(format(fs))
Run the code above in your browser using DataLab