data(DataFreq) # conjunto de dados de frequencia
Dat <- DataFreq[,2:ncol(DataFreq)]
rownames(Dat) <- as.character(t(DataFreq[1:nrow(DataFreq),1]))
Resp <- CA(Dat,"f") # realiza CA
print("Existe dependencia entre as linhas e as colunas?"); print(Resp$DepData)
print("Numero de coordenadas principais:"); print(Resp$NumCood)
print("Coordenadas principais das Linhas:"); round(Resp$MatrixX,2)
print("Coordenadas principais das Colunas:"); round(Resp$MatrixY,2)
print("Inercias das componentes principais:"); round(Resp$MatrixAutoVlr,2)
Run the code above in your browser using DataLab