- data one;
- input a1-a6 c1-c6;
- cards;
- 1 0 3 4 5 6 1 2 3 4 5 6
- 0 3 4 5 9 0 9 2 1 9 4 3
- 9 0 0 0 0 0 10 9 9 3 1 9
- ;;;
- data new;
- set one;
- array geta{*}a1-a6;
- array getc{*}c1-c6;
- do i = 1 to 6;
- if geta{i} ne 0 then do;
- totala+geta{i};
- totalc+getc{i};
- end;
- end;
- rate=totala/totalc;
- call missing(totala,totalc);
- drop i totala totalc;
- run;


雷达卡



京公网安备 11010802022788号







