powered by
Bartlett, Anderson and Lawley Procedures
.n_factors_bartlett(eigen_values = NULL, model = "factors", nobs = NULL)