Computing  an intraclass correlation | SPSS Code Fragments

This is based on the example from Statistical Principles in Experimental Design, Second Edition by J. B. Winer, page 288.

data list list / score1 score2 score3 score4 pid.
begin data.
2 4 3 3 1
5 7 5 6 2
1 3 1 2 3
7 9 9 8 4
2 4 6 1 5
6 8 8 4 6
end data.

RELIABILITY
  /VARIABLES=score1 score2 score3 score4
  /ICC=MODEL(ONEWAY).

You can see that the results match those on the bottom of page 288 and the top of page 289.