data have;
infile datalines dlm=' ' dsd;
informat id sex $1. employment $25.;
input id $ sex employment druguse analgesic;
cards;
1 F "Full Time" 1 1
2 F "Part Time" 0 1
3 M "Unemployed" 0 1
4 M "Full Time" 0 0
;
run;
proc sql ;
create table junk as
select sex,employment,count(*)/(select count(*) from have where sex=a.sex) as pct format=percent8.2
from have as a
group by sex,employment;
run;
proc format;
value $ fmt
'F'='Female'
'M'='Male';
run;
options missing='0';
proc report data=junk nowd completerows;
column sex employment pct;
define sex/group noprint;
define employment/group;
compute before sex;
line @1 sex $fmt.;
endcomp;
run;
... View more
