options nocenter ;
************************************************************************;  
title 'Master MARKETING';
Title2 'Cas Balles de Tennis - Pierre DESMET' ;
* les noms donnes aux variables sont les suivants :                    *;
* quest : code questionnaire      (quest sur 3, code enqueteur sur 2)  *;
* le nom des autres variables est construit sur le principe suivant :  *;
* Q05002 = question 50 , modalite 2                                    *;
* "numero de question ............ 3 positions                         *; 
*  suivi du "numero de case" ..... 2 positions                         *;
************************************************************************;
* Le fichier de donnees est stocke dans un repertoire public.          *;
* chacun peut le consulter et l'utiliser, mais pas le modifier.        *;
* Il s'appelle BALLES.DON.                                             *;
************************************************************************;

DATA TAB1 ;
      	INFILE 'd:\Travail\Cours\MS_ADD07\Balles\balles.don' ;
		FILE   "d:\Travail\Cours\MS_ADD07\Balles\out1.don";
       	INPUT 
	#1 QUEST 1-5 Q030 7-7
	#2 (q04001-q04005) (1.) +1 (q05001-q05010) (1.)
	#3
	(q06101 q06201 q06301 q06401 q06501 q06601 q06701	
	 q06102 q06202 q06302 q06402 q06502 q06602 q06702 
	 q06103 q06203 q06303 q06403 q06503 q06603 q06703 
	 q06104 q06204 q06304 q06404 q06504 q06604 q06704
	 q06105 q06205 q06305 q06405 q06505 q06605 q06705  	
	 q06106 q06206 q06306 q06406 q06506 q06606 q06706  	
	 q06107 q06207 q06307 q06407 q06507 q06607 q06707  	
	 q06108 q06208 q06308 q06408 q06508 q06608 q06708 	
	 q06109 q06209 q06309 q06409 q06509 q06609 q06709 	
	 q06110 q06210 q06310 q06410 q06510 q06610 q06710 	
	 q06111 q06211 q06311 q06411 q06511 q06611 q06711) 	(1.)
	#4
	(q06801 q06901 q07001 q07101 q07201 q07301 q07401	
	 q06802 q06902 q07002 q07102 q07202 q07302 q07402 
	 q06803 q06903 q07003 q07103 q07203 q07303 q07403 
	 q06804 q06904 q07004 q07104 q07204 q07304 q07404
	 q06805 q06905 q07005 q07105 q07205 q07305 q07405  	
	 q06806 q06906 q07006 q07106 q07206 q07306 q07406  	
	 q06807 q06907 q07007 q07107 q07207 q07307 q07407  	
	 q06808 q06908 q07008 q07108 q07208 q07308 q07408 	
	 q06809 q06909 q07009 q07109 q07209 q07309 q07409 	
	 q06810 q06910 q07010 q07110 q07210 q07310 q07410 	
	 q06811 q06911 q07011 q07111 q07211 q07311 q07411) (1.)
	#5
	(q10001 q11001 q10002 q11002 q10003 q11003 q10004 q11004 
	 q10005 q11005 q10006 q11006 q10007 q11007 q10008 q11008 
	 q10009 q11009 q10010 q11010 q10011 q11011) (1.) +1 q115 1.  
	#6
	(q12001 q12501 q12601 q12002 q12502 q12602 q12003 q12503 q12603 
	 q12004 q12504 q12604 q12005 q12505 q12605 q12006 q12506 q12606 
	 q12007 q12507 q12607 q12008 q12508 q12608 q12009 q12509 q12609 
	 q12010 q12510 q12610 q12011 q12511 q12611 
	 q12012 q12512 q12612 q12013 q12513 q12613 q12014 q12514 q12614 
	 q12015 q12515 q12615 q12016 q12516 q12616 q12017 q12517 q12617 
	 q12018 q12518 q12618 q12019 q12519 q12619 q12020 q12520 q12620 
	 q12021 q12521 q12621 q12022 q12522 q12622 q12023 q12523 q12623 
	 q12024 q12524 q12624 q12025 q12525 q12625 q12026 q12526 q12626) (1.) 
	#7 (q12027 q12527 q12627 q12028 q12528 q12628)                   (1.) 
	#8 (q128)                                               (1.)
	#9 q130 1. +1 (q141-q153) (1.)
	#10 (q161-q165)    (1.) +1                       q180 1.
	#11 q200 1-2 q205 4-4 q206 6-6 q207 8-8 +1
	    (q21001-q21005)   (1.)                          q220 16-16
	#12 (q23001-q23012) (1.) +1 (q24001-q24007) (1.) +1 q250 22-22 
	    +1 (q26001-q26011) (1.)
	#13 age 1-1 emploi 3-3 CSPI 5-5 CSPCF 7-7
         ;
		 if q030=1 then licencie=1; else licencie=0;


		 put quest q10001-q10011 q11001-q11011 q141-q153 q161-q165 q200 q205 q206 Q250 age ;
		 

**************************************************************************;
* CREATION DES LABELS DES QUESTIONS  (intitulés)                         *;
**************************************************************************;

* Label questions notoriete ;
Label 	Q05001='Not-Penn'		Q05002='Not-Dunlop'		Q05003='Not-Wilson'	
		Q05004='Not-Slagenzer'	Q05005='Not-Tretorn'	Q05006='Not-Pirelli'
		Q05007='Not-Techno'		Q05008='Not-Nassau'		Q05009='Not-Panther'
		Q05010='Not-Kennex';

* Label question usage 6 derniers mois ;
Label	Q10001='Us6-Penn'		Q10002='Us6-Dunlop'		Q10003='Us6-Wilson'	
		Q10004='Us6-Slagenzer'	Q10005='Us6-Tretorn'	Q10006='Us6-Pirelli'
		Q10007='Us6-Techno'		Q10008='Us6-Nassau'		Q10009='Us6-Panther'
		Q10010='Us6-Kennex';

* Label question preference ;	
Label	Q11001='USP-Penn'		Q11002='USP-Dunlop'		Q11003='USP-Wilson'	
		Q11004='USP-Slagenzer'	Q11005='USP-Tretorn'	Q11006='USP-Pirelli'	
		Q11007='USP-Techno'		Q11008='USP-Nassau'		Q11009='USP-Panther'
		Q11010='USP-Kennex';

Label	Q12801='qui achete ?'	;

* Label Type de surface ;
Label	Q21001='Quick'			Q21002='Terre batue'	Q21003='Gazon'
		Q21004='Green Set'		Q21005='Autre Terrain'	Q030='licencie';

* Label Raquette ;
Label	Q23001='Raq-Adidas'		Q23002='Raq-Dunlop'		Q23003='Raq-Donnay'
		Q23004='Raq-Head'		Q23005='Raq-Major'		Q23006='Raq-Kennex'
		Q23007='Raq-Prima'		Q23008='Raq-Rossignol'	Q23009='Raq-Coq'
		Q23010='Raq-Prince'		Q23011='Raq-Lacoste'	Q23012='Raq-Autre';

* Label Conseil pour achat ;
Label	Q26001='Cons-Amis'		Q26002='Cons-Parent'	Q26003='Cons-Prof'
		Q26004='Cons-Club'		Q26005='Cons-Vendeur'	Q26006='Cons-Pub'
		Q26007='Cons-Champion'	Q26008='Cons-Tournoi'	Q26009='Cons-Autre'
		Q26010='Cons-Aucun'		Q26011='Cons-NSP' ;

* Label Lieu d achat ;
Label	Q24001='Lieu-MS Tennis'			Q24002='Lieu-Mag Sport'
		Q24003='Lieu-Gd Magasin'		Q24004='Lieu-Gde Surface'
		Q24005='Lieu-GSS Sport'			Q24006='Lieu-Club'
		Q24007='Lieu-Autre';

* Libelle des items ;
Label	q115='achat lui meme'			q130='frequence jeu'
		Q141='important bonnes balles'	q142='grands tournois'
		Q143='fonction de la surface'	q144='pas d importance'
		q145='mes balles'				Q146='balles neuves'
		q147='important la raquette'	q148='prix sans importance'
		q149='pas de differences'		q150='cher est meilleur'
		q151='toujours les memes'		q152='changer souvent'
		q153='durer longtemps'			Q161='pas besoin de pub'
		q162='recommandee champion'		Q163='balle officielle'
		Q164='marque sponsor'			q165='publicite magazine'
		Q180='lecture mag specialise'	Q200='anciennete jeu'
		Q205='frequence jeu'			Q206='jeu en club'
		Q207='court couvert'			Q220='nb raquettes'
		Q250='depense moy mensuelle'
	;
	run;
**************************************************************************;
* CREATION DES LABELS DES REPONSES  (intitulés)                          *;
* le format peut regrouper des réponses                                  *;
**************************************************************************;
Proc Format;
	value F30X  1='oui' 2='non';
	value F250X 1='<40 €' 2='40-100 €' 3='100-200 €' 4='>200 €';
	value F2501X 1='<40 €' other='=>40-100 €' ;
	Value F220X 1='1 raquette' 2='Plusieurs raq.';
	value F205X 1='Tous les jours'	2='Presque Tlj' 3='1 fois semaine'
				4='1 fois 2/3 sem'	5='1 fois mois' 6='1 fois 2/3 mois'
				7='1 fois 4/6 mois' 8='1-2 par an'	9='- souvent' 
				10='Jamais';
	value F180X 1='Oui' 2='Non' ;
	value FAGEX  1='18-24 ans' 2='25-34 ans' 3='35-44 ans' 4='45-65 ans';
	value FAGE2X  1='18-24 ans' 2='25-34 ans' 3-4='35 et plus';
	value FEMPLOIX 1='Temps plein' 2='Mi-temps' 3='Sans prof.' ;
	value FCSPX 	1='patron ind/gros commercant'
			2='Cadre sup/Prof lib'
			3='Petit commercant/artisan'
			4='Cadre moyen'
			5='Employe'
			6='Ouvrier'
			7='Pers de service'
			8='Autre'
			9='Inactif'
			10='Chef famille';
	value Q128X 1='Ach-Parents'	2='Ach-Ami'		3='Ach-Prof'
		4='Ach-Club'		5='Ach-Partner'	6='Ach-Autre' 7='Ach-NSP';
	
Proc FREQ ;
		format emploi Femploix. age Fage2x. ;
		tables emploi*age / chisq ;
  run;     

proc means; var q11001-q11010;
run;

proc freq data=tab1;
tables q030*(q04001-q04005) / chisq;

**************************************************************************;
* Kolmogorov smirnov                          *;
**************************************************************************;
proc sort data = tab1;
by Q030;
run;
proc freq;
	tables q200*q030/ nocol norow chisq;
proc capability data=tab1 noprint; 
comphist Q200 / class = Q030  cfill=red cbarline = black;
proc npar1way data = tab1 edf;
class q030;
var q200;
run;

**************************************************************************;
* test en t deux groupes                         *;
**************************************************************************;
title3 'test de la différence sur Q200';
proc ttest data = tab1;
class q030;
var q200;
format q030 F30x. ;
**************************************************************************;
* test shapiro, kolmogorov, cramer                         *;
**************************************************************************;
proc univariate data = tab1 normal ;
var q200;
**************************************************************************;
* corrélation des rangs : dépense et importance de la balle                         *;
**************************************************************************;
title3 'dépense et importance de la balle';
proc freq data=tab1;
	tables q250*q04004/ chisq;
	format q250 F250x. ;
Proc Format;
	value F2501X 1='<40 €' Other='=>40-100 €' ;
proc freq data=tab1;
	tables q250*q04004/ chisq;
	format q250 F2501x. ;
proc corr data = tab1 spearman;
var q250 q04004 ;