
## Not run:
# data(chocolates)
# donnee <- cbind.data.frame(sensochoc[,c(1,4,5:18)])
# axe <- construct.axes(donnee, scale.unit = TRUE)
# simul <- simulation(axe)
# plotellipse (simul, alpha = 0.05, eig = signif(axe$eig,4))
# #######################################
# donnee <- cbind.data.frame(sensochoc[,c(1,4,5:18)])
# axe <- construct.axes(donnee, group = c(6,8),
# name.group = c("A-F","T-S"),scale.unit = TRUE)
# simul <- simulation(axe, nbgroup = (ncol(axe$partiel)-2)/(ncol(axe$moyen)-2))
# plotellipse (simul, alpha = 0.05, eig = signif(axe$eig,4))
# ## End(Not run)
Run the code above in your browser using DataLab