data(chocolates)
data(hedochoc)
chocosenso=averagetable(chocolates, formul = "~Product", firstvar = 5)
cpa(chocosenso, hedochoc, coord = c(1,2), center = TRUE,scale = TRUE)
## If you prefer a graph in black and white and with 3 clusters
cpa(chocosenso, hedochoc, coord = c(1,2), center = TRUE, scale = TRUE,
name.panelist = FALSE, col = gray((50:1)/50), nb.clusters = 3)
Run the code above in your browser using DataLab