1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
* Restructure to calculate kappa.

DATA LIST LIST /reader (F8.0)  a (F8.0)  b(F8.0)   image(F8.0).
BEGIN DATA
1          1    1     1
1          0    1     2
1          1    2     3
2          1    1     1
2          2    2     2
2          0    1     3
3          1    1     1
3          2    1     2
3          1    0     3
END DATA.
LIST.

NUMERIC rdr1a rdr1b rdr2a rdr2b rdr3a rdr3b(F8.0).
VECTOR v=rdr1a TO rdr3b.
COMPUTE v(reader*2-1)=a.
COMPUTE v(reader*2)=b.

AGGREGATE
  /OUTFILE=*
  /BREAK=image
  /rdr1a = MAX(rdr1a) /rdr1b = MAX(rdr1b) /rdr2a = MAX(rdr2a) /rdr2b =
  MAX(rdr2b) /rdr3a = MAX(rdr3a) /rdr3b = MAX(rdr3b).