# NOT RUN {
data(DataFreq) # conjunto de dados de frequencia
data <- DataFreq[,2:ncol(DataFreq)]
rownames(data) <- as.character(t(DataFreq[1:nrow(DataFreq),1]))
Resp <- CA(data = data, "f") # realiza CA
print("Existe dependencia entre as linhas e as colunas?"); Resp$depdata
print("Numero de coordenadas principais:"); Resp$numcood
print("Coordenadas principais das Linhas:"); round(Resp$mtxX,2)
print("Coordenadas principais das Colunas:"); round(Resp$mtxY,2)
print("Inercias das componentes principais:"); round(Resp$mtxAutvlr,2)
# }
Run the code above in your browser using DataLab