* Преобразование данных для вычисления статистики kappa.
DATA LIST LIST /reader (F8.0) a (F8.0) b(F8.0) image(F8.0).
BEGIN DATA
1 1 1 1
1 2 3 2
1 3 2 3
2 1 1 1
2 2 2 2
2 3 3 3
3 3 1 1
3 2 3 2
3 1 2 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).
CROSSTABS
/TABLES=rdr1a BY rdr2a
/STATISTIC=KAPPA.