【100币悬赏】一个SAS查询问题

data a;
input id a b;
cards;
1  1.1   2
2  1.2   4
3  1.3   4
4  1.0   1
;
run;

proc sort data=a;
        by descending a ;
run;



data temp;
        set a end=eof;
        lag1=lag(b);lag2=lag2(b);
        if not eof then do;
        pt=_n_+1;
        set a(rename=(b=next1) keep=b) point=pt;
        end;
run;


data temp1;
        set temp end=eof;
        if not eof then do;
        pt=_n_+1;
        set temp(rename=(next1=next2) keep=next1) point=pt;
        end;
run;


data final;
        set temp1 end=eof;
        if _n_=1 then  c=mean(next1,next2);
        else if eof then c=mean(lag1,lag2);
        else c=mean(lag1,next1);
        keep id a b c;
run;


proc sort data=final;
        by id;
run;

data try;
input id a b;
cards;
1 1.1 2
2 1.2 4
3 1.3 4
4 1.0 1
;
run;
proc sort data = try out = a;
        by a;
run;
data a;
n = _N_;
set a;
run;
data b;
set a;
do i = 1 to nobs;
   set a( keep = b rename=( b = nb))nobs = nobs point = i ;
  output;
end;
run;
data c;
set b;
m = _N_;
run;
proc sql ;
create table m as
select a.id,a,b,c
from a join (select distinct n , id ,mean(nb) as c
        from(select * from c
        where( n=1 and (m = 2 or m = 3))or ((n >1 and n<4)and (m = 5*n-5 or m = 5*n -3)) or (n =4 and(m = 14 or m =15)))as d
        group by n)as n   
on a.n = n.n
order by id;
quit;

huyiustc 发表于 2016-9-13 16:50
如题：
原始数据集含 ID A B三个变量
id   a     b

666