* table 1 in paper;
* example of wkappa - input data and call up macro: unweighted, frequency form;

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);