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
Titles = c("Observacoes","Variaveis","Observacoes/Variaveis")
Plot.CA(Resp,Titles,Color="s")
data(DataQuali) # Conjunto de dados qualitativos
Dat <- DataQuali[,2:ncol(DataQuali)]
rownames(Dat) <- as.character(t(DataQuali[1:nrow(DataQuali),1]))
Resp <- CA(Dat,"c","b") # realiza CA
Titles = c("","Graficos das Variaveis")
Plot.CA(Resp,Titles,Color="s")
Run the code above in your browser using DataLab