有如上数据集,希望将同一ID同一日期a+b=0的赋值为0
程序如下:
- data test2;
- set test1;
- array arr(*) col:;
- call symput('n',dim(arr));
- do i=1 to &n;
- if arr(i) eq . then arr(i)=0;
- end;
- do j=1 to &n-1;
- do k = &j+1 to &n;
- if arr(j)+arr(k)=0 then do;
- arr(j)=0;arr(k)=0;leave;
- end;
- end;
- end;
- run;