## Load Thurstone & Thurstone's data used by Browne (1979)
data(Thurstone41)
Example1Output <- faMB(R = Thurstone41,
n = 710,
NB = 2,
NVB = c(4,5),
numFactors = 2,
rotate = "oblimin",
rotateControl = list(standardize = "Kaiser"))
summary(Example1Output, PrintLevel = 2)
Run the code above in your browser using DataLab