options ls=70 ps=70;

data Medication_Adherence;

 input group $ event $ count;

datalines;
intervention adherent 47
intervention not_adhe 28
z_control    adherent 36
z_control    not_adhe 39
;

run;

title "Difference in Proportions of Adherent Patients";

proc freq data=Medication_Adherence;
 tables group*event/riskdiff;
 weight count;

run;