title 'Berkeley Admissions data'; proc format; value admit 1="Admitted" 0="Rejected" ; value yn 1="+" 0="-" ; value dept 1="A" 2="B" 3="C" 4="D" 5="E" 6="F"; value $sex 'M'='Male' 'F'='Female'; data berkeley; do dept = 1 to 6; do gender = 'M', 'F'; do admit = 1, 0; input freq @@; output; end; end; end; /* Admit Rej Admit Rej */ datalines; 512 313 89 19 353 207 17 8 120 205 202 391 138 279 131 244 53 138 94 299 22 351 24 317 ;