30论坛币求助 提取最大值相邻的观测间的均数最大值

1. data have;
   
2. input time x;
   
3. cards;
   
4. 1   9
   
5. 2   5
   
6. 3   6
   
7. 4   7
   
8. 5   4
   
9. 6   9
   
10. 7   5
    
11. 8   2
    
12. 9   3
    
13. 10  4
    
14. 11  5
    
15. 12  6
    
16. ;
    
17. run;

复制代码

/* 先找到最大值，然后得到最大值和前一个观测的均数以及最大值和后一个观测的均数，最后提取出这两个均数中的最大值*/

1. data have;
   
2. input time x;
   
3. cards;
   
4. 1   9
   
5. 2   5
   
6. 3   6
   
7. 4   7
   
8. 5   4
   
9. 6   9
   
10. 7   5
    
11. 8   2
    
12. 9   3
    
13. 10  4
    
14. 11  5
    
15. 12  6
    
16. ;
    
17. run;
    
18. 
    
19. proc sql;
    
20. select max(x) into :max_x from have(firstobs=3);
    
21. quit;
    
22. 
    
23. %macro findmax;
    
24. data want;
    
25. set have;
    
26. x_lag1=lag1(x);
    
27. x_lag2=lag2(x);
    
28. qian=mean(x,x_lag1);
    
29. hou=mean(x_lag1,x_lag2);
    
30. max=max(qian,hou);
    
31. if _n_>2 and x_lag1=&max_x;
    
32. keep max;
    
33. run;
    
34. %mend findmax;
    
35. %findmax;

复制代码

data have1;
        set have;
        retain maxv;
        xlag=lag(x);
        maxv=max(x,maxv);
        if x=max(x,maxv) or xlag=max(x,maxv) then do;
                mean=mean(x,xlag);
                meanlag=lag(mean(x,xlag));
                finalmax=max(mean(x,xlag),lag(mean(x,xlag)));
        end;
run;
最终结果已经做出来了，中间步骤可以再精简一些，你自己精简吧。