if (FALSE) {
data(ACL)
# Factor analyze a random subset of ACL items
# for illustrative purposes
set.seed(1)
RandomItems <- sample(1:300,
50,
replace = FALSE)
ACL50 <- ACL[, RandomItems + 3]
tetR_ACL50 <- tetcor(x = ACL50)$r
fout <- faMain(R = tetR_ACL50,
numFactors = 5,
facMethod = "fals",
rotate = "oblimin",
bootstrapSE = FALSE,
rotateControl = list(
numberStarts = 100,
standardize = "none"),
Seed = 123)
summary(fout, itemSort = TRUE)
}
Run the code above in your browser using DataLab