# NOT RUN {
library(parameters)
factor_analysis(mtcars[, 1:7], n = "all", threshold = 0.2)
factor_analysis(mtcars[, 1:7], n = 2, rotation = "oblimin", threshold = "max", sort = TRUE)
factor_analysis(mtcars[, 1:7], n = 2, threshold = 2, sort = TRUE)
efa <- factor_analysis(mtcars[, 1:5], n = 2)
summary(efa)
predict(efa)
# }
# NOT RUN {
# Automated number of components
factor_analysis(mtcars[, 1:4], n = "auto")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab