data suicide;
input group attempt count @@;
cards;
1 1 19 1 2 1 2 1 14 2 2 6
;

proc format;
value groupfm 1='depressed' 
              2='manic';

value attemptfm 1='yes'
               2='no';  
proc print;

proc freq;
 weight count;
 tables group*attempt /exact;
 format group groupfm. attempt attemptfm.;
title 'Example of Fishers Exact Test';
title2 'Example of 7.2.3.1 on P. 229';

run;