- proc datasets library=work kill nolist;
- quit;
- proc import out = have
- datafile = "D:\日常练习\xiaocgn\data.xlsx"
- dbms = excel replace;
- run;
- data want;
- set have;
- retain temp 0;
- temp+sum;
- group= int(temp/100);
- mod=mod(temp,100);
- run;
- proc sort data=want out=want sortseq=linguistic(numeric_collation=on);by group temp;quit;
- data want1;
- set want;
- by group temp;
- if first.group then do;
- cd=abs(mod(temp,100));
- group1=group-1;
- output;
- end;
- else if last.group then do;
- cd=abs(100-mod(temp,100));
- group1=group;
- output;
- end;
- run;
- proc sql noprint;
- create table final(where=(cd=temp1)) as
- select distinct *,min(cd) as temp1
- from want1
- group by group1;
- quit;
不知是否是你想要的


雷达卡



京公网安备 11010802022788号







