- data have;
- input icc subj rep xij yij;
- cards;
- 1 1 1 20 48
- 1 1 2 56 23
- 1 2 1 34 35
- 1 2 2 35 66
- 2 1 1 34 66
- 2 1 2 35 77
- 2 2 1 77 12
- 2 2 2 87 11
- ;
- run;
- data want;
- do i=1 by 1 until (last.subj);
- set have;
- by icc subj;
- array x xij1-xij2;
- array y yij1-yij2;
- x(i)=xij;
- y(i)=yij;
- if last.subj then output;
- end;
- drop i rep xij yij;
- run;


雷达卡





京公网安备 11010802022788号







