/* rensyu2解答例  by K.T.   2000/06/14（水）14:29:04
org. A.Nami
*/

DATA d1;
	INPUT id place age / no jouken $ Q1-Q10 / no2 jouken2 $ Q11-Q20;
	LABEL id='ID' place='場所' age='年齢' no='NO' Q1-Q10='第1試行データ10個'
		no='NO' Q11-Q20='第2試行データ10個';
CARDS;
7422 0 19
1 U 4 3 4 3 3 3 3 5 4 2
2 P 5 3 7 5 4 2 7 6 7 3
7323 1 18
1 U 4 1 2 4 1 5 1 4 5 5
2 P 1 2 3 1 1 2 6 4 3 4
7424 2 20
1 U 6 5 3 6 4 7 1 6 6 7
2 P 2 5 5 1 1 2 4 3 6 3
7425 1 19
1 U 4 4 3 5 4 4 1 3 4 5
2 P 6 5 5 6 5 5 4 7 7 6
7426 2 19
1 U 4 3 3 4 2 6 2 1 7 7
2 P 6 6 6 6 5 2 7 6 5 7
7427 1 19
1 U 5 4 3 4 3 4 2 4 4 6
2 P 6 4 6 6 5 4 5 4 5 3
7428 2 18
1 U 5 4 4 4 4 4 2 3 4 4
2 P 4 4 5 3 3 3 7 6 6 6
7429 1 18
1 U 4 3 2 4 3 4 2 2 3 3
2 P 5 6 6 5 5 2 5 4 4 4
;
RUN;

TITLE 'Q1 (ただ印刷するだけ）';
PROC PRINT;
RUN;

TITLE 'Q2 試行間の差を求めて年齢,IDの順に出力';
DATA d2;
	SET d1;
	ARRAY s(10) sa1-sa10;
	ARRAY qq(20) q1-q20;
	DO i=1 to 10;
		s(i)=qq(i+10)-qq(i);
	END;
/*	original
  sa1=Q11-Q1;sa2=Q12-Q2;sa3=Q13-Q3;sa4=Q14-Q4;sa5=Q15-Q5;
  sa6=Q16-Q6;sa7=Q17-Q7;sa8=Q18-Q8;sa9=Q19-Q9;sa10=Q20-Q10;
*/
RUN;

PROC SORT ;
	BY age id;
RUN;
PROC PRINT;
	VAR sa1-sa10 id age;
RUN;