EFA_mod <- EFA(test_models$baseline$cormat, N = 500, n_factors = 3,
type = "EFAtools", method = "PAF", rotation = "promax")
sl_mod <- SL(EFA_mod, type = "EFAtools", method = "PAF")
sl_mod
# format() returns the same lines as plain text:
writeLines(format(sl_mod))
Run the code above in your browser using DataLab