# NOT RUN {
data(DataFreq) # conjunto de dados de frequencia
Data <- DataFreq[,2:ncol(DataFreq)]
rownames(Data) <- DataFreq[1:nrow(DataFreq),1]
Resp <- CA(Data, "f") # realiza CA
Tit = c("Scree-plot","Observacoes", "Variaveis", "Observacoes/Variaveis")
Plot.CA(Resp, titles = Tit, xlabel = NA, ylabel = NA,
color = TRUE, linlab = rownames(Data), casc = FALSE)
data(DataQuali) # conjunto de dados qualitativos
Data <- DataQuali[,2:ncol(DataQuali)]
Resp <- CA(Data, "c", "b") # realiza CA
Tit = c("","","Grafico das Variaveis")
Plot.CA(Resp, titles = Tit, xlabel = NA, ylabel = NA,
color = TRUE, linlab = NA, casc = FALSE)
# }
Run the code above in your browser using DataLab