/*Agresti 3.11*/
data table;
length party $25;
input race $ Party $ count;
cards;
Black Democrat 192
Black Independent 75
Black Republican 8
White Democrat 459
White Independent 586
White Republican 471
;
run;
proc freq data =table order=data;
	weight count;
	tables race*party/all crosslist stdres;
run;
data table;
length party $25;
input race $ Party $ count;
cards;
Black Democrat 192
Black Independent 75
White Democrat 459
White Independent 586
;
run;
proc freq data =table order=data;
	weight count;
	tables race*party/all;
run;
data table;
length party $25;
input race $ Party $ count;
cards;
Black DI 267
Black Republican 8
White DI 1045
White Republican 471
;
run;
proc freq data =table order=data;
	weight count;
	tables race*party/all ;
run;
/*Agresti 3.16*/
data temp;
	length income education $25;
	input income $ education $ count;
	cards;
	low <HS 9
	low HS 44
	low <College 13
	low  College 10
	middle <HS 11
	middle HS 52
	middle <College 23
	middle College 22
	high <HS 9
	high HS 41
	high <College 12
	high College 27
	;
run;
proc freq data=temp order=data;
	weight count;
	tables income*education/all;
run;
/*Agresti 3.19*/
data table;
input lead$ malformation$ count @@;
datalines;
no yes 7 no no 18
yes yes 7 yes no 7
;
proc freq data=table order=data; weight count;
tables lead*malformation;
exact fisher;
run;