if (FALSE) {
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
}
Run the code above in your browser using DataLab