data leisure; input age $ 1-7 activity $ number; datalines; 18-25 TV 21 18-25 Read 3 18-25 Music 9 18-25 Web 10 18-25 Computer 19 26-35 TV 17 26-35 Read 5 26-35 Music 6 26-35 Web 8 26-35 Computer 13 36-50 TV 14 36-50 Read 8 36-50 Music 8 36-50 Web 12 36-50 Computer 9 51-65 TV 18 51-65 Read 10 51-65 Music 11 51-65 Web 10 51-65 Computer 3 Over 65 TV 13 Over 65 Read 14 Over 65 Music 16 Over 65 Web 11 Over 65 Computer 1 ; run; proc freq data=leisure order=data; tables age*activity/ chisq cellchi2 expected; weight number; run;