## Not run:
# data(cocktail)
# res.cpa = cpa(cbind(compo.cocktail, senso.cocktail), hedo.cocktail)
# ## If you prefer a graph in black and white and with 3 clusters
# res.cpa = cpa(cbind(compo.cocktail, senso.cocktail), hedo.cocktail,
# name.panelist = TRUE, col = gray((50:1)/50), nb.clusters = 3)
# ## End(Not run)
Run the code above in your browser using DataLab