data(DataQuan) # data set
data <- DataQuan[,2:ncol(DataQuan)]
rownames(data) <- DataQuan[,1]
res <- FA(data, method = "PC", type = 2, nfactor = 3, rotation = "None",
scoresobs = "Bartlett", converg = 1e-5, iteracao = 1000,
testfit = TRUE)
print("Matrix with all associated results:"); round(res$mtxresult,3)
print("Sum of squares of the residues:"); round(res$vlrsqr,3)
print("Matrix of the factor loadings.:"); round(res$mtxcarga,3)
print("Matrix with scores of the observations:"); round(res$mtxscores,3)
print("Matrix with the scores of the coefficients of the factors:"); round(res$coefscores,3)
Run the code above in your browser using DataLab