* Source: 
http://www.anesi.com/titanic.htm; 

data titanic;
Label Gender="M=man, W=woman, C=child"; 
input Gender $ status $ alive dead; 
fate = "alive"; count=alive; output; 
fate = "dead"; count = dead; output; 
cards; 
M Crew   192  693
W Crew    20    3
C First    6    0
M First   57  118
W First  140    4
C Second   24   0
M Second  14  154
W Second  80   13
M Third   75  387
W Third   76   89
C Third    27  52
 ; 
 proc print; sum count; run; 
 proc sort data=titanic; 
 by status fate; 
 *** Create a record for each passenger ***; 
data passengers; keep gender status fate X Y;  
set titanic; by status; 
if first.status then X+1; 
do i=1 to count; Y=(fate="alive");output; end; 
proc print data=passengers; run; 
proc corr; var Y; with X; 
run;