# NOT RUN {
## Example 1: carto on the sensory descriptors
data(cocktail)
res.pca <- PCA(senso.cocktail)
results1 <- cartoconsumer(res.pca, hedo.cocktail)
results2 <- cartoconsumer(res.pca, hedo.cocktail,
graph.hcpc=TRUE,graph.group=TRUE)
# }
# NOT RUN {
## Example 2
# }
# NOT RUN {
data(cocktail)
res.mfa <- MFA(cbind.data.frame(senso.cocktail,compo.cocktail),
group=c(ncol(senso.cocktail),ncol(compo.cocktail)),
name.group=c("senso","compo"))
results3 <- cartoconsumer(res.mfa, hedo.cocktail)
# }
Run the code above in your browser using DataLab