install.packages("ca")
library(ca)


# Frequencies of smoking habits (none, light, medium and heavy) for 
# staff groups (senior managers, junior managers, senior employees, 
# junior employees and secretaries) in a fictional company.
data("smoke")

CA = ca(smoke)

names(CA)

CA$rowcoord

summary(CA)

data = matrix(c(135,140,95,55,40,60,50,115,40,60,5,15,
90,55,20,35,40,10,60,25,35,10,5,30,30,20,5,10,10,20),
ncol=6,byrow=TRUE)

data = data.frame(data)

names(data) <-  c("Qualidade do Som","Tecnologia Avancada", "Potencia do Som","Recursos Tecnicos","Preco","Confianca na Marca")

rownames(data) <- c("Sony","Aiwa","Gradient","Philips","Sharp")

CA = ca(data)

CA

summary(CA)

plot(CA)