# NOT RUN {
# Perform Factor Analysis with matrix \code{x}
x <- matrix(rnorm(200*3), ncol = 10)
x %>%
horns_curve() %>%
factor_analysis(x, hc_points = .) %>%
factor_analysis_results(fa_loadings_rotated) %>%
kaisers_index()
# }
Run the code above in your browser using DataLab