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,col=gray((50:1)/50),nb.clusters=3)
Run the code above in your browser using DataLab