options validvarname=any;
data test;
input group $ result $ count;
datalines;
治疗组 痊愈 16
治疗组 显效 12
治疗组 有效 4
治疗组 无效 2
对照组 痊愈 8
对照组 显效 10
对照组 有效 12
对照组 无效 4
;
run;
proc freq data=test;
table group * result/fisher;
weight count;
run;
结果:
x2=7.515152
P=0.111043
x2=7.515152