* logit données individuelles ;
* logit ordonné ;
*----------------------------------;
options formdlim="-";

data in2 ;
	input reponse genre effectif ;

	cards ;
	1 1 20
	2 1 30 
	3 1 40 
	4 1 20 
	5 1 10
	1 2 10
	2 2 10 
	3 2 30 
	4 2 50 
	5 2 20
	;
proc freq data=in2 ;
	weight effectif ;
	tables genre*reponse/chisq  nocol nopercent;

* etude de la relation Nominale x ordinal avec une logistique ordonnée  ;
*====================================================================*;
proc logistic data=in2   ;
	class genre ;
	freq  effectif ;
	model reponse = genre / link=clogit
							clodds=wald 			/* intervalle de confiance des rapports de cote */
							scale=none aggregate; 	/* test de la proportionalité et de l'ajustement */
	output out=log_out p=predit;
	title3 "Régression logistique d'une fréquence ordonnée ";
	run;

proc print data=log_out ;
run;