data t;
input a$ b$ c$ d$;
cards;
y p 1 h
n q 1 nh
n p 0 h
n p 0 -
y p 0 nh
y - - nh
y - - h
y p 1 nh
n q 1 -
n q 1 h
n q 1 h
- p 0 nh
n p 0 nh
n p 0 h
n q 1 h
n q - nh
y q 1 h
n q 1 -
n q 0 nh
;
run;
proc tabulate data=t out=out;
class a b c d;
table a*(n pctn) b*(n pctn) c*(n pctn) d*(n pctn);
run;
proc print data=out;
run;