options nodate nonumber;
data relate2s;
  input x1 x2 @@;
  d=x1-x2;
cards;
184 171 173 169 181 172
159 162 148 134 161 161
172 167 183 180 194 191
152 152 173 162 180 167
162 160 167 179 154 152
184 171 172 169 148 140
proc univariate normal;
  var d;
run;;
options nodate nonumber;
data relat2s;
 input x1 x2;
 d=x1-x2;
cards;
184 171
173 169
181 172
159 162
148 134
161 161
172 167
183 180
194 191
152 152
173 162
180 167
162 160
167 179
154 152
184 171
172 169
148 140
;
options nodate nonumber;
data relate2s;
  input x1 x2 @@;
  diff=x1-x2;
cards;
184 171 173 169 181 172
159 162 148 134 161 161
172 167 183 180 194 191
152 152 173 162 180 167
162 160 167 179 154 152
184 171 172 169 148 140
proc univariate;
  var diff;
run;;
options nodate nonumber;
data relateks;
do i=1 to 7;
  do j=1 to 4;
    input x@@;
    output;
  end;
end;
cards;
63 188 138  54
90 238 220 144
54 300  83  92
45 140 213 100
54 175 150  36
72 300 163  90
64 207 185  87
;
proc freq;
  tables i*j*x/scores=rank cmh2 noprint;
run;