********************************************************************; * Analyse sensorielle et Marketing ; * etude des évaluations subjectives par 30 juges ; * ; * Objectif 1 : sélectionner les "meilleurs" juges : ceux qui sont ; * (a) "répétables" : faible dispersion des notes pour l'évaluation du même produit ; * (b) proches de l'évaluation moyenne (éliminer les outliers); * (c) pour cela utiliser une analyse factorielle, une typologie et l'analyse de variance ; * ; * Objectif 2 : construire et analyser les mesures subjectives pour les produits ; * (a) calculer moyenne et écart-type par produit ; * (b) faire des représentations graphiques type radar ou profil ; * (c) faire une analyse factorielle et intégrer les mesures objectives ; * ; * Objectif 3 : sélectionner un sous-ensemble de mesures subjectives pertinentes ; * (a) étudier les corrélations; * (b) sélectionner les dimensions d'évaluation pertinentes * ; * Pierre Desmet 2012 ; ********************************************************************; /* tableaux non centrés, pas de saut de page */ options nocenter formdlim="-" ; /* caractères accentués dans les graphiques*/ goptions devmap=winansi keymap=winansi ; title1 J=L "A. Sensorielle : Barres chocolatées"; Title2 J=L "Traitement des données des juges" ; Footnote1 J=L "Master Marketing, Dauphine 2012" J=R "Noms"; /********************************************************************/ /* Données */ /* Evaluation de 1 à 3 : peu, moyen, beaucoup */ /* Dimensions sélectionnées lors d'une réunion de groupe */ /********************************************************************/ * Tableau in_large : 1 ligne par juge (n_juges)= 30 lignes; ***********************************************; Data in_large ; drop attribut code0 ; array E{15,10} E1-E150 ; input juge $ @@ ; N_jug = _N_ ; Do attribut = 1 to 10; Do code0= 1 to 15 ; if attribut=10 and code0= 15 then input E{code0,attribut} ;else input E{code0,attribut} @@ ; end ; end; /* attention à ne pas laisser de case vide : missing = mettre un point "." */ /* attention à remplacer le "tab" par un espace " " si copier/coller à partir d'excel */ cards ; Tiana 3 2 2 1 3 1 3 3 1 2 3 1 1 3 1 3 2 3 2 3 3 3 1 1 1 1 2 3 3 1 2 3 3 1 2 1 3 3 2 2 2 3 1 3 . . 1 3 3 3 3 3 1 3 1 3 2 3 3 3 3 3 1 3 1 3 2 3 3 3 3 1 3 2 3 3 3 3 1 2 2 3 3 1 2 1 3 3 2 2 2 3 2 1 1 1 1 1 3 1 1 3 1 1 1 1 3 1 1 1 2 2 1 1 1 1 1 3 2 1 3 3 1 2 1 1 2 3 1 2 2 2 2 2 3 2 3 3 2 1 3 3 1 3 1 3 2 3 3 3 AB88 3 3 2 2 3 1 3 3 1 2 3 1 2 3 2 3 2 3 3 2 3 3 1 1 1 1 2 3 2 1 3 3 3 1 2 1 2 3 1 1 2 3 1 1 1 1 1 3 2 2 1 3 2 2 2 2 1 2 2 2 1 3 2 2 2 2 1 2 2 2 3 1 3 1 3 2 3 3 2 2 2 2 3 3 2 1 3 2 1 3 3 3 3 1 1 1 2 3 1 1 1 1 3 1 1 1 3 1 1 1 2 1 1 1 1 3 3 3 2 2 2 3 2 2 3 1 1 3 2 2 3 2 3 2 2 2 3 3 2 3 1 3 2 2 2 2 1 2 2 2 E1604 3 1 3 2 2 2 3 3 1 1 3 1 2 3 2 2 3 3 1 2 1 3 1 1 1 1 3 2 1 1 3 3 2 1 1 1 2 2 1 1 3 3 1 1 1 1 3 3 2 2 3 3 1 3 1 1 2 3 2 2 3 3 1 3 1 1 2 3 2 2 3 1 3 2 3 3 3 3 1 2 2 3 3 1 1 1 3 2 1 2 3 3 1 1 1 1 3 1 1 1 2 3 1 1 1 1 1 2 1 1 2 1 1 2 1 2 2 3 2 1 2 3 2 1 3 1 3 2 1 2 3 2 3 1 3 3 3 2 1 1 3 3 1 3 1 1 2 3 2 2 CC 3 2 3 3 3 2 3 3 1 2 2 1 3 2 2 1 3 3 1 1 2 3 1 1 1 1 2 3 2 2 3 3 2 1 2 1 2 3 1 2 2 2 1 1 1 1 2 3 2 3 2 3 1 3 1 2 1 3 3 3 2 3 1 3 1 2 1 2 1 2 3 2 3 2 3 2 3 2 1 2 2 3 2 2 3 1 2 3 1 2 3 3 1 1 2 1 2 3 1 2 1 1 3 1 1 1 3 2 1 1 3 2 2 1 1 1 3 3 2 2 3 3 2 2 2 1 2 3 2 1 3 2 3 1 3 1 3 3 1 1 2 3 1 3 1 2 1 3 3 3 Juliette 3 3 3 2 1 2 3 3 1 2 3 1 3 3 1 3 2 3 1 2 3 3 2 2 1 2 3 3 1 3 3 3 3 1 1 1 3 3 2 2 3 3 1 2 1 1 2 3 2 3 3 3 2 3 1 3 1 3 3 2 3 3 1 2 2 3 1 3 3 1 3 1 3 3 2 3 3 3 1 2 3 3 3 1 1 1 3 3 2 2 1 3 2 1 1 1 2 1 3 1 3 1 3 1 2 1 3 2 1 1 3 3 2 1 1 2 3 3 1 1 3 3 2 2 1 2 3 3 1 3 3 1 3 2 2 3 3 2 1 2 3 3 2 3 1 3 1 3 3 2 Virginie 3 1 3 2 2 1 3 3 1 2 3 1 1 3 1 2 2 3 1 3 3 2 1 1 1 1 2 3 1 1 3 3 3 1 2 1 3 3 1 2 3 2 1 2 1 2 3 3 2 3 3 3 1 3 1 3 2 3 2 3 3 3 1 3 1 3 2 3 2 3 3 1 3 3 1 1 3 3 3 1 3 3 3 1 2 1 3 3 1 2 2 3 1 1 1 1 1 1 1 1 3 3 3 1 1 1 3 3 1 1 3 3 2 1 1 1 3 3 1 1 3 3 2 1 1 1 3 3 1 2 3 1 2 3 1 1 3 3 1 1 3 3 1 2 1 3 2 3 2 3 Lara_Croft 3 2 3 2 3 2 3 2 1 2 3 1 3 3 2 3 3 2 1 2 2 1 1 1 1 2 1 3 1 1 3 3 3 1 2 1 3 1 1 1 3 2 1 2 1 2 3 3 2 2 2 1 1 3 1 3 1 2 3 2 3 1 1 3 1 3 1 2 3 2 3 1 2 3 2 3 3 2 1 2 3 3 3 1 2 1 3 1 1 1 3 3 2 1 1 1 3 2 2 2 2 1 3 1 1 1 3 1 1 3 . . . . . . . . . . 2 3 1 2 2 2 2 2 2 2 2 1 2 3 3 2 2 1 1 1 3 1 1 3 1 3 1 2 3 2 E2704 3 1 3 3 3 1 2 2 2 1 3 1 3 3 3 3 3 3 1 2 2 2 1 2 1 3 3 2 2 1 . . . . . . . . . . 2 3 1 1 1 1 1 2 1 3 3 2 1 2 1 3 3 3 2 3 . . . . . . . . . . 3 1 3 3 3 3 3 3 1 2 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2 3 2 2 2 1 2 3 1 2 3 1 3 2 2 3 3 2 1 2 Charlotte 3 2 3 2 2 1 3 3 1 3 3 1 2 3 2 3 2 2 2 2 3 3 1 1 1 1 3 3 1 2 3 3 3 1 3 1 2 3 1 2 2 3 1 2 1 1 2 3 2 2 . . . . . . . . . . . . . . . . . . . . 3 1 3 3 3 3 2 2 1 2 2 3 3 1 2 1 2 3 2 2 3 3 1 1 1 1 3 3 2 1 . . . . . . . . . 3 1 1 1 1 3 3 3 2 2 3 2 2 3 3 2 2 2 2 2 . . . . . . . . . . . . . . . . . . . . . MG 3 3 2 2 2 2 3 3 1 2 2 1 2 3 2 3 2 2 2 2 2 3 2 1 1 1 2 2 2 2 3 3 2 1 2 1 3 3 2 2 3 3 1 1 1 1 2 2 2 3 2 3 2 3 1 2 2 3 3 2 3 3 2 3 1 3 2 3 2 3 3 1 3 3 2 3 3 3 2 2 3 3 2 1 1 1 2 2 1 2 3 3 1 1 1 1 3 2 2 1 3 2 3 1 1 1 3 1 1 1 2 1 2 2 1 2 2 3 2 2 2 3 2 2 2 2 2 3 1 2 2 2 2 2 2 1 3 3 2 2 3 3 2 3 1 3 2 3 2 3 XG1 3 2 2 2 3 2 3 3 1 2 2 1 2 3 2 2 2 3 3 2 3 3 3 1 3 1 3 1 1 1 3 3 3 1 2 1 3 3 2 3 3 3 1 1 1 1 2 3 2 3 2 3 1 3 1 3 2 3 3 2 3 3 1 3 1 3 2 3 3 2 2 1 3 2 3 2 2 3 2 2 3 3 3 1 2 1 3 3 2 2 3 3 1 1 1 1 3 3 2 1 3 3 3 1 2 1 3 1 1 1 3 1 2 2 2 2 2 1 1 1 2 2 2 2 2 1 2 3 1 2 3 1 3 1 3 1 3 3 1 2 3 3 1 3 1 3 2 3 3 2 Twix 2 2 3 2 2 2 3 2 1 2 3 1 3 2 3 2 2 3 1 1 1 3 1 1 1 1 2 3 3 1 1 1 3 1 3 2 1 2 1 1 3 3 3 1 1 3 1 2 3 3 2 3 2 3 1 3 1 2 3 3 2 3 1 3 1 3 2 2 3 3 3 1 3 2 3 3 3 2 1 1 2 1 3 2 3 2 3 2 1 1 1 3 3 1 1 1 2 1 2 1 1 1 3 1 2 1 1 1 1 3 3 2 1 1 1 1 2 2 1 1 3 3 3 2 3 3 3 2 1 2 2 1 3 2 3 3 3 2 1 1 2 3 1 3 1 3 2 2 3 2 ako07 3 2 3 2 3 2 3 3 1 1 3 1 2 2 2 3 3 3 1 1 3 3 3 1 1 1 2 2 1 1 3 3 3 2 1 2 3 2 1 2 3 3 2 1 1 1 3 3 1 3 3 3 2 3 3 3 1 3 3 2 3 3 2 3 3 3 1 3 3 2 3 1 3 3 3 2 3 3 1 1 3 3 3 2 1 2 3 2 1 2 3 3 1 1 1 1 2 2 2 1 2 1 3 1 1 1 3 2 1 1 3 1 1 2 1 2 3 3 1 1 2 3 3 2 3 3 3 3 2 1 3 1 3 2 3 2 3 3 1 1 3 3 2 3 3 3 1 3 3 2 ML87 3 3 3 2 2 1 3 3 1 3 3 1 1 3 1 3 3 3 3 1 3 2 3 2 1 1 2 2 1 1 2 3 3 2 2 1 3 3 1 3 1 3 1 3 1 1 2 3 3 2 2 3 1 3 2 3 2 3 3 3 2 3 1 3 2 3 2 3 3 2 3 1 3 3 3 1 3 3 1 3 3 3 3 3 2 1 3 3 1 3 1 3 1 1 1 1 2 3 1 2 3 1 3 1 1 1 3 2 1 1 2 1 1 1 1 1 2 2 1 1 2 3 1 3 2 1 2 3 2 2 3 2 2 2 2 2 3 3 1 3 3 3 1 3 2 2 1 3 3 3 François 2 2 2 2 1 2 3 3 1 1 3 1 3 3 1 3 3 3 1 1 1 2 1 1 1 1 2 3 2 2 2 3 3 1 1 1 3 3 2 1 2 3 1 1 1 1 2 2 2 2 3 3 2 2 1 3 2 3 1 1 3 3 2 3 1 3 2 3 2 2 2 1 2 3 3 2 3 2 1 2 3 2 3 1 1 3 3 2 2 2 1 3 1 1 1 1 2 3 3 1 2 1 2 2 1 1 3 2 1 1 3 1 2 1 1 1 2 2 2 1 2 3 1 3 1 2 2 2 2 1 1 1 3 3 2 1 3 3 1 1 3 3 2 3 1 3 2 3 2 1 XY123 3 2 3 3 3 1 3 3 1 2 3 2 3 2 2 1 3 3 1 3 2 3 2 1 1 1 1 2 2 2 2 3 3 2 2 1 3 3 1 1 3 3 2 3 1 1 3 2 2 3 3 2 1 3 2 3 3 3 2 3 3 2 1 2 2 3 2 2 2 3 3 1 3 3 3 2 3 3 1 3 3 3 1 1 1 1 2 2 2 1 2 3 1 1 1 1 1 2 3 1 3 1 3 2 1 2 3 2 1 1 3 1 3 3 2 2 3 3 1 3 2 3 2 2 1 2 3 3 1 2 3 2 3 3 3 1 3 3 1 2 3 2 1 2 2 3 2 3 2 3 Caroline 2 2 3 2 1 2 3 2 1 1 3 1 2 3 1 3 2 2 1 1 3 2 2 1 1 1 2 3 2 1 2 3 3 1 2 1 2 2 2 1 3 3 1 1 1 1 1 2 2 2 3 3 1 2 1 2 1 2 3 1 3 3 1 1 1 2 1 2 3 1 2 1 2 2 2 2 3 2 1 2 3 3 2 1 2 1 2 2 2 2 2 3 2 1 1 1 2 3 2 3 2 3 2 1 1 1 3 3 1 3 3 2 1 1 1 2 2 2 1 1 3 3 2 2 1 2 3 2 2 1 2 1 2 2 1 2 2 2 1 1 3 3 1 2 1 2 1 2 2 1 Emmanuel 3 3 3 2 3 1 3 3 1 2 3 1 3 2 2 2 3 3 1 2 2 3 1 2 1 1 2 3 1 2 3 3 3 2 3 1 3 3 1 1 3 3 1 3 1 2 2 3 2 3 3 3 1 3 1 1 2 3 3 3 3 3 1 3 1 3 3 3 3 3 2 1 3 2 3 1 3 3 1 1 3 1 3 2 1 1 3 3 1 1 3 3 1 1 1 1 3 3 1 1 3 3 3 1 3 1 3 2 1 1 3 1 1 3 1 2 2 3 1 2 2 3 2 2 2 2 3 2 2 2 2 3 3 1 3 1 2 3 1 1 3 3 1 3 1 3 3 3 3 3 Fernando 3 2 3 3 2 3 3 3 1 2 3 1 3 3 2 3 3 2 1 3 2 2 1 2 1 2 1 1 3 2 3 2 3 2 1 1 1 1 3 1 3 2 2 2 1 2 1 1 3 3 3 2 2 2 1 2 1 1 3 3 2 2 1 3 1 2 1 3 3 1 3 1 3 3 3 2 2 1 1 3 2 3 3 2 1 2 1 2 3 3 1 3 1 1 1 1 1 2 3 1 2 3 3 2 3 2 3 1 1 1 3 2 1 1 1 2 2 2 1 2 3 3 1 2 1 1 1 1 3 2 2 2 3 2 2 2 3 3 1 2 3 3 2 3 1 2 2 1 3 3 CORTIAL 1 2 2 1 3 2 3 3 2 2 2 1 1 3 2 3 1 3 2 2 2 2 1 1 1 1 3 3 1 2 2 3 3 1 1 3 1 1 2 1 2 3 1 1 1 2 3 3 2 2 2 3 2 2 1 3 3 3 2 3 1 2 2 3 2 2 2 1 3 2 3 1 3 3 2 3 3 3 1 2 2 3 2 1 1 2 3 2 3 1 3 3 2 2 1 2 1 1 2 1 1 1 3 1 1 1 3 1 1 1 2 2 2 2 1 2 2 2 2 1 3 3 2 1 3 3 2 1 3 1 1 1 3 2 2 3 2 2 1 2 2 3 2 3 3 3 1 3 3 2 Céline 3 2 3 2 2 1 3 3 1 2 3 2 2 3 2 3 3 3 3 2 1 3 2 1 1 1 2 2 1 1 3 3 3 2 2 1 3 3 1 3 3 3 1 2 1 2 2 2 3 3 2 2 1 3 1 3 2 3 3 2 2 2 1 3 1 3 2 3 3 2 3 2 3 3 3 2 3 3 2 3 3 3 3 2 2 1 3 3 1 3 2 3 1 1 1 1 2 2 2 1 2 1 3 2 1 1 3 3 1 2 2 1 1 1 1 1 2 3 1 2 3 3 2 2 2 2 3 3 3 3 3 2 3 3 3 3 3 3 2 2 2 2 1 3 1 3 2 3 3 2 Oana 3 3 2 3 2 2 3 3 1 3 2 2 1 3 1 3 2 3 2 2 1 3 1 2 1 1 1 2 2 1 3 3 3 2 1 3 3 3 2 3 2 3 1 3 1 3 2 3 2 2 3 3 1 3 1 3 2 3 3 2 3 3 1 3 1 3 2 3 3 2 3 2 3 3 1 3 3 3 1 3 3 3 3 2 1 1 3 3 2 2 2 3 2 1 1 1 2 2 1 1 3 2 3 1 1 3 3 2 2 1 2 1 2 2 1 2 3 3 2 2 2 3 3 2 1 2 2 2 2 2 2 1 3 2 1 2 3 3 1 3 3 3 1 3 1 3 2 3 3 2 STE 3 3 3 2 3 2 3 3 1 2 3 1 1 2 2 2 3 3 1 2 2 3 2 1 2 1 2 3 1 1 3 3 3 1 3 1 3 3 1 2 3 3 1 1 1 1 2 2 2 3 2 2 1 3 1 3 2 2 3 2 2 2 1 3 1 3 2 2 3 2 3 1 3 2 3 1 2 3 1 2 2 2 3 1 3 2 3 3 1 2 1 3 1 1 1 1 2 1 2 1 2 3 3 1 1 1 3 2 1 1 . . . . . . . . . . 2 3 2 1 2 1 2 2 2 2 2 2 2 1 3 1 3 3 1 2 2 2 1 3 1 3 2 2 3 2 Dragana 3 2 3 2 3 2 3 3 1 1 2 1 3 2 2 3 2 3 2 1 1 2 2 2 1 1 3 3 2 1 3 2 3 1 3 1 3 2 1 2 3 3 1 1 1 1 2 3 2 3 3 2 1 2 1 2 1 2 3 3 3 3 1 2 1 2 1 2 3 2 2 1 3 3 3 3 2 2 3 2 3 3 3 1 3 1 3 2 1 2 2 3 1 1 1 1 3 3 2 1 1 1 2 2 3 2 1 1 2 1 3 1 1 2 1 2 2 3 2 2 3 3 2 2 3 1 2 3 2 2 2 1 3 1 2 1 2 3 1 1 3 3 1 2 1 2 1 2 3 2 ST 3 3 3 1 2 2 3 3 1 3 3 1 2 2 2 3 3 3 1 3 3 3 2 2 1 1 1 3 1 1 3 3 2 2 1 3 3 3 2 3 3 3 1 1 1 2 3 3 1 3 3 3 2 2 1 3 3 3 2 3 3 3 2 2 1 3 3 3 2 3 3 1 2 2 2 3 3 3 1 3 2 3 2 2 2 2 1 2 2 1 3 3 1 1 1 1 3 3 2 2 1 1 3 1 3 1 1 2 1 1 2 1 2 2 1 1 1 1 1 1 2 3 1 2 1 2 2 3 1 2 2 1 3 3 2 2 2 3 1 3 3 3 2 2 1 3 3 3 2 2 ; * Tableau in : 1 ligne par produit évalué (n_juges * n_produits) = 30*15 = 450 lignes; ****************************************************************; Data in ; set in_large ; keep N_jug juge code0 marque libelle ev1-ev10 ; array E{15,10} E1-E150 ; array EV{10} EV1-EV10 ; array lib{13} $ 9. lib1-lib13 ; lib{1}="Mars"; lib{2}="Nougatti"; lib{3}="Snickers" ;lib{4}="Milky_way" ;lib{5}="Sundy"; lib{6}="Bounty"; lib{7}="Nuts"; lib{8}="Twix" ; lib{9}="Lion"; lib{10}="Balisto" ; lib{11}="Kit_Kat" ;lib{12} ="Kinder"; lib{13}="Pouce"; array code{15} code1-code15 ; code{1}=5 ; code{2}=4 ;code{3}=10 ;code{4}=9 ;code{5}=11 ;code{6}=12 ;code{7}=12 ;code{8}=1 ; code{9}=13 ;code{10}=5 ; code{11}=2 ;code{12}=6 ;code{13}=8 ;code{14}=7 ;code{15}=12 ; do code0 = 1 to 15 ; marque = code{code0}; libelle=lib{marque} ; do j=1 to 10 ; EV{j} = E{code0,j} ; end ; output ; end ; Label EV1="Sucré" EV2 = "Croquant" EV3 = "Collant" EV4="Fondant" EV5="Filant" EV6="Onctueux" EV7="Consistant" EV8="Gouteux" EV9="Léger" EV10="Chocolaté" ; /* attention à ne pas laisser de case vide : missing = mettre un point "." */ /* attention à remplacer le "tab" par un espace " " si copier/coller à partir d'excel */ cards ; Tiana 3 2 2 1 3 1 3 3 1 2 3 1 1 3 1 3 2 3 2 3 3 3 1 1 1 1 2 3 3 1 2 3 3 1 2 1 3 3 2 2 2 3 1 3 1 3 3 3 3 3 1 3 1 3 2 3 3 3 3 3 1 3 1 3 2 3 3 3 3 1 3 2 3 3 3 3 1 2 2 3 3 1 2 1 3 3 2 2 2 3 2 1 1 1 1 1 3 1 1 3 1 1 1 1 3 1 1 1 2 2 1 1 1 1 1 3 2 1 3 3 1 2 1 1 2 3 1 2 2 2 2 2 3 2 3 3 2 1 3 3 1 3 1 3 2 3 3 3 AB88 3 3 2 2 3 1 3 3 1 2 3 1 2 3 2 3 2 3 3 2 3 3 1 1 1 1 2 3 2 1 3 3 3 1 2 1 2 3 1 1 2 3 1 1 1 1 1 3 2 2 1 3 2 2 2 2 1 2 2 2 1 3 2 2 2 2 1 2 2 2 3 1 3 1 3 2 3 3 2 2 2 2 3 3 2 1 3 2 1 3 3 3 3 1 1 1 2 3 1 1 1 1 3 1 1 1 3 1 1 1 2 1 1 1 1 3 3 3 2 2 2 3 2 2 3 1 1 3 2 2 3 2 3 2 2 2 3 3 2 3 1 3 2 2 2 2 1 2 2 2 A1604 3 1 3 2 2 2 3 3 1 1 3 1 2 3 2 2 3 3 1 2 1 3 1 1 1 1 3 2 1 1 3 3 2 1 1 1 2 2 1 1 3 3 1 1 1 1 3 3 2 2 3 3 1 3 1 1 2 3 2 2 3 3 1 3 1 1 2 3 2 2 3 1 3 2 3 3 3 3 1 2 2 3 3 1 1 1 3 2 1 2 3 3 1 1 1 1 3 1 1 1 2 3 1 1 1 1 1 2 1 1 2 1 1 2 1 2 2 3 2 1 2 3 2 1 3 1 3 2 1 2 3 2 3 1 3 3 3 2 1 1 3 3 1 3 1 1 2 3 2 2 ; * Tableau in_long : 1 ligne par attribut évalué (n_juges * n_produits* n_attributs) = 30 * 15 * 10 = 4500 lignes; ***********************************************************************************; data in_long; set in ; keep N_jug juge code0 marque libelle EV0 Note; array EV{10} EV1-EV10 ; do EV0=1 to 10 ; Note = EV{EV0} ; output ; end ; run ; Proc Format ; value Marque_fmt 1="Mars" 2="Nougatti" 3="Snickers" 4="Milky_way" 5="Sundy" 6="Bounty" 7="Nuts" 8="Twix" 9="Lion" 10="Balisto" 11="Kit_Kat" 12 ="Kinder" 13="Pouce"; value Eval_fmt 1="Sucré" 2 = "Croquant" 3 = "Collant" 4="Fondant" 5="Filant" 6="Onctueux" 7="Consistant" 8="Gouteux" 9="Léger" 10="Chocolaté" ; run; ********************************************************************; * Données brutes; ********************************************************************; title3 "Print des Données en entrée Ind x evaluation"; proc print data= in ; where N_Jug=1 ; run ; ********************************************************************; * Tableau de synthèse par code ; ********************************************************************; title3 "Tableau : Moyenne par code"; proc tabulate data=in ; class code0 ; var EV1-EV10 ; table (code0 all), (EV1-EV10)*mean*F=5.2 ; run ; ********************************************************************; * Graphiques par marque ; ********************************************************************; title3 "Graphique RADAR"; proc gradar data=in_long; where marque=1 or marque=3 ; chart EV0 / freq=note overlay=marque /* "accross" si séparé */ mode=share cstarfill=(CX7C95CA CXDE7E6F) cstarfill=(solid solid) cspokes= black ; format EV0 eval_fmt. marque marque_fmt. ; run; title3 "Graphique Profil Plot"; symbol interpol=boxt; proc gplot data=in_long; Where marque= 1 ; plot note*EV0 ; format EV0 eval_fmt. marque marque_fmt. ; run; ********************************************************************; ********************************************************************; * Typologie des juges ; ********************************************************************; ********************************************************************; Title3 "Analyse factorielle sur la matrice transposée des juges"; proc transpose data=in_large out=in_transp ; var E1-E150; run ; ods graphics on ; proc acp data=in_transp n=2 plots =all; var col1-col24 ; run ; ods graphics off ; Title3 "Typologie des juges (hiérarchique)"; Proc cluster data=in_large method=average outtree= tree noprint ; var E1-E150 ; id juge ; run ; data outtree; set tree; if _parent_ eq '' and _name_ ne 'CL1' then delete; run; Title4 "Dendrogramme de la typologie hiérarchique des juges (average)"; proc tree data=outtree; run ; ods rtf ; ********************************************************************; ********************************************************************; * Etude de la répétabilité des juges ; ********************************************************************; ********************************************************************; Title3 "Etude de la répétabilité des juges (uniquement Kinder : 6,7,15)"; data in_repet ; set in ; if marque=6 or marque=7 or marque =15 ; ********************************************************************; * Analyse ; ********************************************************************; Title1 j=l "Positionnement : Classement NF ISO 8587" j=r "Test Friedman" ; Title3 "Analyse SANS neutraliser les différences entre les juges "; Title4 "LIRE : 'différence de scores moyens entre les lignes' " ; proc freq data=in_long ; tables produit*rang / CMH2 scores=rank nocol nopercent nofreq; format produit produitfmt. ; run ; Title3 "Analyse en neutralisant les différences entre les juges"; Title4 "LIRE : 'différence de scores moyens entre les lignes' " ; proc freq data=in_long ; tables juge*produit*rang / CMH2 scores=rank nocol nopercent norow; format produit produitfmt. ; run ; ********************************************************************; * Traitement en Npar1way = Anova sur var ordinale ; ********************************************************************; Title1 "Analyse classement = variable ordi (Wilcoxon)"; Title2 "Traitement en Kruskal-Wallis (1 seule VD >2 modalités)"; Title3 "puis Wilcoxon (rank sum 2 à 2) pour les comparer 2 à 2"; proc npar1way data=in_long wilcoxon; var rang; class produit; * exact; * pour un échantillon de faible taille; run; ********************************************************************; * Traitement en GLM ; ********************************************************************; Title1 "Analyse classement = variable quanti (GLM) "; Title2 "Traitement en GLM"; Title3 "puis Tukey pour les comparer 2 à 2"; proc GLM data=in_long ; class produit juge ; model rang = produit juge; lsmeans produit / pdiff=all adjust=tukey ; run ;