# NOT RUN {
# An efficient means for getting factor analysis results
x <- matrix(rnorm(200*3), ncol = 10)
N <- nrow(x)
p <- ncol(x)
x %>%
horns_curve() %>%
factor_analysis(x, hc_points = .) %>%
factor_analysis_results(fa_scores_rotated)
# }
Run the code above in your browser using DataLab