data glm;
input seatbelt $ injury $ count ;
datalines;
no fatal 1601
no nonfatal 162527
yes fatal 510
yes nonfatal 412368
; 
proc freq order=data; weight count;
 tables seatbelt*injury / riskdiff relrisk;
run;

data race_party;
input race $ party $ count ;
datalines;
black democrat 103
black independent 15
black republican 11
white democrat 341
white independent 105
white republican 405
; 
proc freq order=data; weight count;
 tables race*party / chisq expected nocol norow nopercent;
run;
data race_party;
input race $ party $ count ;
datalines;
black democrat 103
black republican 11
white democrat 341
white republican 405
; 
proc freq order=data; weight count;
 tables race*party / relrisk nocol norow nopercent;
run;

data claritin;
input drug $ nervous $ count;
datalines;
claritin no 184 
claritin yes 4
placebo no 260
placebo yes 2
choropheniramine no 168
choropheniramine yes 2
;
proc freq order=data; weight count;
tables nervous*drug / nocol norow nopercent exact;
run;


data claritin;
input drug $ nervous $ count;
datalines;
claritin no 184 
claritin yes 4
placebo no 260
placebo yes 2
;
proc freq order=data; weight count;
tables nervous*drug / relrisk riskdiff nocol norow nopercent exact;
run;