data(AmzBoxes)
BoxList <- GenerateBoxData (XYZ = AmzBoxes[,2:4],
BoxStudy = 20,
Reliability = .75,
ModApproxErrVar = .10,
SampleSize = 300,
NMinorFac = 50,
epsTKL = .20,
Seed = 1,
SeedErrorFactors = 1,
SeedMinorFactors = 2,
PRINT = FALSE,
LB = FALSE,
LBVal = 1,
Constant = 0)
BoxData <- BoxList$BoxData
RBoxes <- cor(BoxData)
fout <- faMain(R = RBoxes,
numFactors = 3,
facMethod = "fals",
rotate = "geominQ",
rotateControl = list(numberStarts = 100,
standardize = "CM"))
summary(fout)
Run the code above in your browser using DataLab