## Load Boruch et al.'s dataset
data(Boruch70)
Example4Output <- faMB(R = Boruch70,
n = 111,
NB = 2,
NVB = c(7,7),
numFactors = 2,
rotate = "oblimin",
rotateControl = list(standardize = "Kaiser",
numberStarts = 100))
summary(Example4Output, digits = 3)
Run the code above in your browser using DataLab