# NOT RUN {
data(DataQuan) # conjunto de dados
data <- DataQuan[,2:ncol(DataQuan)]
rownames(data) <- DataQuan[,1]
Resp <- 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(Resp$mtxresult,3)
print("Soma dos Quadrados dos Residuos:"); round(Resp$vlrsqr,3)
print("Matriz das Cargas Fatoriais:"); round(Resp$mtxcarga,3)
print("Matriz com os escores das observacoes:"); round(Resp$mtxscores,3)
print("Matriz com os escores dos coeficientes dos fatores:"); round(Resp$coefscores,3)
# }
Run the code above in your browser using DataLab