proc format;
value hstat 1="1: excel" 2="2: good" 3="3: fair" 4="4: poor";
run;
data ps_agree;
input q_pt q_sg frq;
cards;
1 1 10
1 2 33
1 3 0
1 4 23
2 1 31
2 2 162
2 3 0
2 4 100
3 1 5
3 2 85
3 3 0
3 4 106
4 1 3
4 2 45
4 3 0
4 4 205
;
run;
data ps_agree; set ps_agree;
format q_pt q_sg hstat.;
run;
%include 'wkappa.txt';
%kappa(q_pt, q_sg, 4, frq, uwt, 95, ps_agree);