options nocenter formdlim="-" ;
title1 'Expérimentation';
footnote1 h=3 j=l 'Master Marketing Paris-Dauphine';
footnote2 h=2 j=l 'Source : Analyse des données appliquée au marketing ' j=r '2007 (c) Pierre Desmet';

* *******lecture des données sur l'expérimentation prix **********************;
* exemple de JJ Lambin, La recherche marketing;
* 3 niveaux de prix (p)(-25%, 0, +25%), 4 tailles de magasins (m) et 30 mesures par magasin;
******************************************************************************;
Data in ;
	do n=1 to 30;								* 30 lignes ;
		do prix=1 to 3 ;						* dans chaque ligne combinaison prix * magasin ;
			do magasin=1 to 4 ;
				n=(prix-1)*4+magasin ;
				if n=12 then input q 5.2; else input q 5.2 @@ ; 
			output ;
			end;
		end;
	end;
	
	cards ;
 1.25 1.75 7.00 2.75 0.75 1.75 2.00 5.75 0.75 0.50 0.50 2.50
 1.00 0.00 2.00 3.25 1.00 0.00 2.75 3.00 0.75 1.75 4.00 2.50
 1.75 1.25 4.75 5.00 1.25 2.75 3.75 1.25 0.25 0.00 3.00 4.00
 1.50 1.25 5.00 9.00 1.00 0.00 2.75 5.50 0.50 1.25 3.25 2.50
 1.75 1.00 2.75 4.25 2.25 3.25 2.00 4.00 1.00 1.25 2.50 3.25
 1.25 1.25 2.00 4.75 1.25 0.75 4.75 3.50 0.00 1.75 0.50 3.50
 1.50 0.50 2.75 5.25 1.25 2.25 4.25 2.00 0.50 0.75 1.50 5.25
 0.00 1.25 2.50 3.25 1.25 1.75 3.25 4.75 0.50 1.00 2.50 3.25
 0.50 2.50 1.75 2.75 0.50 0.00 1.75 2.75 1.00 1.00 4.25 2.50
 1.50 2.00 3.50 5.25 1.00 0.75 4.00 1.25 0.50 1.50 4.00 4.25
 0.75 3.25 2.75 1.00 0.50 2.25 1.75 1.00 0.00 1.25 3.25 2.25
 0.25 1.50 5.00 2.25 0.75 1.25 2.75 4.75 1.25 0.75 1.00 3.50
 0.25 2.25 1.25 7.00 0.75 1.75 2.25 3.75 0.25 0.50 1.25 1.25
 1.00 0.75 2.75 2.00 1.25 1.50 4.25 4.00 0.00 1.75 2.25 3.00
 1.75 0.50 2.25 6.25 0.75 1.25 4.25 1.00 0.50 1.50 5.75 2.25
 0.00 1.50 4.75 5.75 0.50 0.00 2.25 2.50 0.50 1.75 1.75 2.50
 0.75 1.25 2.50 4.25 0.25 1.50 0.00 1.00 0.25 0.00 3.75 3.25
 0.25 3.50 1.25 4.50 1.25 0.50 1.00 4.00 0.00 3.00 3.75 1.75
 1.50 2.25 4.00 6.50 1.25 0.25 5.00 1.25 1.00 1.25 2.50 1.00
 1.00 0.00 4.00 1.75 0.25 0.25 4.00 3.25 0.50 2.00 2.75 2.25
 0.00 0.00 1.50 4.75 1.00 1.25 2.50 3.25 1.00 0.50 1.75 4.25
 0.25 2.75 4.75 5.50 1.50 1.25 2.75 2.50 0.50 1.75 1.75 2.75
 1.25 0.50 4.75 1.00 0.25 2.00 3.00 1.50 1.00 3.50 4.75 5.75
 0.75 2.00 3.00 5.50 0.75 2.00 3.75 2.25 0.75 1.25 1.25 2.50
 0.25 1.50 3.50 2.25 0.50 1.75 2.00 4.25 1.00 1.00 3.00 0.00
 1.00 2.00 2.00 3.00 0.75 2.50 4.25 3.25 0.00 0.75 0.25 1.25
 1.00 2.00 2.25 3.75 0.00 1.00 1.25 1.75 0.50 0.50 2.75 2.75
 2.00 2.25 3.75 3.75 1.00 2.75 2.50 1.00 0.50 0.25 3.50 2.00
 1.00 1.25 3.00 5.50 0.50 2.00 3.25 1.25 1.00 2.25 0.50 0.75
 0.25 0.00 4.25 3.75 1.00 0.00 4.00 2.50 0.50 0.50 2.00 4.00
;
run;

Proc GLM DATA=in;
		where prix=1 or prix=2;
		CLASS Prix;							/* lister ici les variables catégorielles */
		model Q = Prix 						/* modèle */
		/ ss3 								/* effet d'une variable toutes les autres étant prises en compte */
		solution;							/* demande des estimateurs */
		means prix 						 	/* demande des moyennes pour les variables indépndantes */
		/ tukey scheffe;					/* test de tukey et de Scheffe */
		contrast 'prix1' prix  1  -1  0 ;	/* test de la différence entre 1 et 2 (somme doit tj faire 0)  */