*Lecture fichier PMG;
************************;
options formdlim="-";
TITLE    H=3    J=L "Guarantie de Remboursement de la Différence";
TITLE1    H=2    J=L ;
TITLE3    H=3        ;

FOOTNOTE1 H=2  J=L "Master Marketing Paris-Dauphine";
FOOTNOTE2 H=1  J=L "SOURCE : Analyse des données appliquée au marketing" J=R "(c)2007  Pierre DESMET";

DATA IN ;
INFile 'D:/Travail/Cours/MS_ADD07/PMG/PMG.prn' ; 
INPUT Quest Q01 $ Q02-Q05 Q06 $ Q07-Q58 Q59 $ Q60-Q65 ;

If Q01="E3" ;						* étudier uniquement sur l'enseigne E3;

Q46= 8-Q46 ;
Q47= 8-Q47 ;
Q54= 8-Q54 ;
Q57= 8-Q57 ;
Q58= 8-Q58 ;


 Label 
 Quest='Questionnaire'
 Q45='J’aime faire les magasins'
 Q46='*Passer du temps à choisir dans les magasins, cela m’ennuie beaucoup'
 Q47='*Faire des achats c’est toujours une corvée'
 Q55='Il m arrive souvent d aller dans un magasin rien que pour regarder les prix'
 Q56='Avant d’acheter, je regarde les prix sur les prospectus ou sur Internet'
 Q57='*Je n ai pas beaucoup de temps à perdre à comparer les prix entre les magasins'
 Q58='*Je compare peu les prix entre les magasins car les produits ne sont jamais les mêmes'
 Q59='Sexe'
; 

PROC FORMAT;
 VALUE FMTA  1="Pas du tout d accord"
    2="Pas d accord"
    3="Plutôt pas d accord"
    4="ni d accord, ni pas d accord"
    5="Plutôt d accord"
    6="D accord"
    7="Tout à fait d accord";
 VALUE FMTB  1-3="Pas d accord" 
    4="Ni Ni" 
    5-7="D accord";
proc cluster data=in 
		method=ward outtree=data_tree
		print=10 
		ccc pseudo ; * ajouter standard pour standardiser les variables ;
		var q45-q47 q55-q58;
title4 "1- Typologie hiérarchique";
RUN;
proc tree data=data_tree 
		out=data_type 
		Nclusters=3;  *		horizontal;
	run;

proc gplot data=data_history ;
	symbol1 i=join v=dot ;
	plot CubicClusCrit*NumberOfClusters PseudoF*NumberOfClusters PseudoTSq*NumberOfClusters RSquared*NumberOfClusters SemipartialRSq*NumberOfClusters   ;
title4 "2- Statistiques pour le nombre de groupes";
run;

proc fastclus data=in 
		maxc=4  maxiter=30 
		out=clus2 ; * l'appartenance au groupe est dans la variable CLUSTER ;
		var q45-q47 q55-q58;
title4 "3- Typologie nodale";
RUN;