50论坛币求助如何得到这样的数据集？

1. data aaa;
   
2. input id no x;
   
3. cards;
   
4. 1 1 1
   
5. 1 2 4
   
6. 1 3 0
   
7. 1 4 1
   
8. 1 5 2
   
9. 2 1 1
   
10. 2 2 2
    
11. 2 3 4
    
12. 2 4 0
    
13. 2 5 1
    
14. ;
    
15. run;
    
16. 
    
17. proc sort data=aaa;
    
18.         by id no;
    
19. run;
    
20. 
    
21. 
    
22. /*每个个体（id）按照no 排序后，x=4 往后的观测标记为1，  x=4前面的观测包括x=4的观测标记为0*/
    
23. /*希望得到的数据集*/
    
24. id no x y
    
25. 1 1 1  0
    
26. 1 2 4  0
    
27. 1 3 0  1
    
28. 1 4 1  1
    
29. 1 5 2  1
    
30. 2 1 1  0
    
31. 2 2 2  0
    
32. 2 3 4  0
    
33. 2 4 0  1
    
34. 2 5 1  1

复制代码

1. data b;
   
2. set aaa;
   
3. by id no;
   
4. retain y_;
   
5. if first.id then y_=0;
   
6. if x=4 then do; y_=1;y=0;end;else do; y=y_;end;
   
7. run;

复制代码

data bbb;
set aaa;
by id no;
retain y;
if first.id then do;
        if x>=4 then y=1; else y=0;
end;
if lag(y) = 0 and x>=4 then y=1;
run;

prince315 发表于 2017-5-15 18:24
data bbb;
set aaa;
by id no;

结果不对!
x=4 应该y=0

dxystata 发表于 2017-5-15 19:56
结果不对!
x=4 应该y=0

没注意，4的那一条是0哈。最傻瓜方法，俺现在逻辑对4那条再单独处理一遍就OK了

data bbb;
set aaa;
by id no;
if first.id then flag=0;
if x=4 then flag+1;
if flag=0 or (x=4 and flag=1) then k=0;
else if flag>=1 then k=1;
run;