# NOT RUN {
fa_parallel_result <- BFI2[, 1:60] %>% fa_parallel(plot = FALSE) # without plot
fa_parallel_result %>% plot # generate plot from "fitted" object
fa_parallel_result %>% plot(show_kaiser = FALSE) # hide Kaiser boundaries
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab