*  例题数据;

             金标准阴性  金标准阳性

试验阳性              5                                                              15

试验阴性      18               9

;

*输入待计算数据;

data a ;

        do positive = 1 to 2;

        input weight@@;

        output;

        end;*灵敏度=真阳÷（真阳＋假阴）;

        cards;

        15 9

        ;

run;

*灵敏度特异度也相当于一个率，其95%CI采用FREQ计算，由于例数较少，选择精确检验的结果即可

proc freq data=a;

        weight weight;

        table positive/binomial;

run;

*特异度;

data b ;

        do specific = 1 to 2;

        input weight@@;

        output;

        end;

        cards;

        15 5

        ;

run;

proc freq data=b;

        weight weight;

        table specific/binomial;

run;

data b ;

        do specific = 1 to 2;

        input weight@@;

        output;

        end;

        cards;

        18 5

        ;

run;

proc freq data=b;

        weight weight;

        table specific/binomial;

run;