data(DataQuan) # conjunto de dados
data <- DataQuan[,2:ncol(DataQuan)]
rownames(data) <- DataQuan[,1]
res <- FA(data = data, method = "PC", type = 2, nfactor = 3, rotation = "None",
scoresobs = "Bartlett", converg = 1e-5, iteracao = 1000,
testfit = TRUE)
print("Matriz com todos os resultados associados:"); round(res$mtxresult,3)
print("Soma dos Quadrados dos Residuos:"); round(res$vlrsqr,3)
print("Matriz das Cargas Fatoriais:"); round(res$mtxcarga,3)
print("Matriz com os escores das observacoes:"); round(res$mtxscores,3)
print("Matriz com os escores dos coeficientes dos fatores:"); round(res$coefscores,3)
Run the code above in your browser using DataLab