***************************************************************;
* Wine 1                                                      *;
* analyse d'un traitement                                     *;
***************************************************************;
* Pierre Desmet 21/11/2010 ;

goptions devmap=winansi keymap=winansi ;    /* prise en compte des caractères accentués */

Title1 		H=2 j=L "Master Marketing" J=R "Universite Paris-Dauphine";
Title2 		H=1 j=L "Tests et Experimentation" ;
Title3		H=2 j=c "Cas R&W  (1)" ;
Footnote1 	h=1 j=L "(c)2010, Pierre DESMET" ;
Data in ;
	input temps_restau @@;
	Label temps_restau="Temps passé dans le restaurant" ;

cards ;
93 74 98 87 106 115 76 89 103 91 121
143 81 119 97 31 107 80 112 109 67 95
71 107 72 116 105 66 99 104 91 132 141
79 113 69 78 107 101 92 120 87
;
run ;
proc print data=in (obs=10);
run ;

proc tabulate data=in ;
	var temps_restau ;
	table N temps_restau*(mean std); 			 
run ;

ods graphics on ;					/* sorties graphiques automatiques */
proc univariate data=in normal;
	var temps_restau ;
run ;
proc ttest data=in ;
	var temps_restau ;
run ;
ods graphics off ;

***************************************************************;
* test égalité à 88  ;
***************************************************************;
Title3 "Test égalité à 88 ";
proc ttest data=in h0=88 ;
	var temps_restau ;
run ;

***************************************************************;
* test unilatéral ;
***************************************************************;
Title3 "Test en unilatéral ";
proc ttest data=in h0=88 alpha=0.10;
	var temps_restau ;
run ;
proc ttest data=in h0=88 sides= U ;
	var temps_restau ;
run ;