data(DataFreq) # conjunto de dados de frequencia
data <- DataFreq[,2:ncol(DataFreq)]
rownames(data) <- DataFreq[1:nrow(DataFreq),1]
res <- CA(data, "f") # realiza CA
tit <- c("Scree-plot","Observacoes", "Variaveis", "Observacoes/Variaveis")
Plot.CA(res, titles = tit, xlabel = NA, ylabel = NA,
color = TRUE, linlab = rownames(data), savptc = FALSE,
width = 3236, height = 2000, res = 300, casc = FALSE)
data(DataQuali) # conjunto de dados qualitativos
data <- DataQuali[,2:ncol(DataQuali)]
res <- CA(data, "c", "b") # realiza CA
tit <- c("","","Grafico das Variaveis")
Plot.CA(res, titles = tit, xlabel = NA, ylabel = NA,
color = TRUE, linlab = NA, savptc = FALSE,
width = 3236, height = 2000, res = 300,
casc = FALSE)
Run the code above in your browser using DataLab