请问高手这个算法用SAS怎么实现？

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位高手，
下面的示例数据，请问用SAS如何实现，有个思路就可以。

谢谢。

希望达成这样的目的（判断标记）：
对每个sell列：
如果值是NA，则标记为NA。
如果值不是NA，则判断其值是否大于buy列历史最低值（先排除已经删除的最低值）：
        如果是，则标记为1，同时删除buy列的历史最低值；
        否则，标记为0；同时删除buy列该历史最低值。



历史最低值，例如，如果sell列属于Date=5，则buy列的历史最低值只判断Date=1~5，不判断Date=6~8.

先排除已经删除的最低值，例如，如果下表第8行数值是25.2，则标记为0，因为buy列的最低值25.18已经被删除了。



最近大脑不好使，今天在电脑弄了小半天，逻辑是清晰的，但如何用SAS实现总是有点模糊。
目前想到的是，每次提取2个子集：
A:第N行的子集；（得到当前行的sell值）
B:第1-N行的子集；（得到历史行的最小buy值，并记录最小值所在的行数minrow）
如果sell>min(buy)，则A子集增加一列标记为1，否则标记为0。合并所有A子集。
回到原始数据集，将minrow的buy值清空。

但感觉算法很不优雅。应该有什么递归可以简单地实现。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Sell date 原始数据 如何实现 buy 历史 如何

date=5 标记为什么是0 shell=50.96 最低值是25.75

孤单的我们 发表于 2016-6-1 16:31
date=5 标记为什么是0 shell=50.96 最低值是25.75

对，是15.95输成50.95，谢谢指正。

1. data a;
   
2. input date sell$ buy$;
   
3. cards;
   
4. 1 25.75 NA
   
5. 2 NA 25.75
   
6. 3 NA 25.18
   
7. 4 25.66 NA
   
8. 5 15.95 NA
   
9. 6 NA 25.62
   
10. 7 NA 25.7
    
11. 8 25.6 NA
    
12. ;
    
13. run;
    
14. 
    
15. data b;
    
16.         set a;
    
17.         call symputx('nobs',_n_);
    
18.         if buy="NA" then buy1=.;
    
19.         else buy1=input(buy,best.);
    
20. run;
    
21. 
    
22. 
    
23. %macro test;
    
24. %do i=1 %to &nobs;
    
25.         proc sql noprint;
    
26.                 select min(buy1) into:min from b where date<=&i;
    
27.         quit;
    
28.         %put &min;
    
29.         data b;
    
30.                 set b;
    
31.                 if _n_=&i then do;
    
32.                         if sell="NA" then do;biaoji="NA";end;
    
33.                         else do;
    
34.                                 if sell>&min>. then do;biaoji="1";buy1=.;end;
    
35.                                 else do;biaoji="0";buy1=.;end;
    
36.                         end;
    
37.                 end;
    
38.         run;
    
39. %end;
    
40. %mend;
    
41. %test;

复制代码

纠正下错误：循环里的sql  where应该写成date<&i；对于第一个观测，没有历史最低值，可以赋个空值

多谢楼上的热心。非常简练的code。不过其中删除buy的要求没有达到，可能之前我描述的不清楚，目标是：当sell>min(buy)的时候，清空或删除min(buy)所在的行。

我自己根据你的code写了一个，不过就谈不上简练了。

1. data a;
   
2. input date sell buy;
   
3. cards;
   
4. 1 25.75 .
   
5. 2 .         25.75
   
6. 3 .         25.18
   
7. 4 25.66 .
   
8. 5 15.95 .
   
9. 6 .         25.62
   
10. 7 .         25.7
    
11. 8 25.6 .
    
12. ;
    
13. run;
    
14. 
    
15. data b;
    
16.         set a;
    
17.         pos=_N_;
    
18.         call symput('nobs',_N_);
    
19. run;
    
20. 
    
21. %macro test;
    
22. %do i=1 %to &nobs;
    
23.         %let min=0;
    
24.         %let pos=0;
    
25. 
    
26.     proc sql noprint;
    
27.             select min(buy) into:min from b where buy^=. and date<=&i;
    
28. 
    
29.     proc sql number noprint;
    
30.             select pos into:pos from b where buy^=. and date<=&i having buy=min(buy);
    
31.     quit;
    
32. 
    
33.     %put &min &pos;
    
34. 
    
35.         %if &min=0 or &pos=0 %then %goto next;
    
36. 
    
37.     data b;
    
38.         set b;
    
39.         if _N_=&i and sell^=. and sell>&min then biaoji="1";
    
40.                 else if _N_=&i and sell^=. and sell<=&min then biaoji="0";
    
41.                 else if (_N_=&i and sell=.) or (_N_>&i) then biaoji="";
    
42.                 else biaoji=biaoji;
    
43. 
    
44.                 if _N_=&i and biaoji="1" then call symput('delBuy',compress("true"));
    
45.                 else call symput('delBuy',compress("false"));
    
46.         run;
    
47. 
    
48.     data b;
    
49.         set b;
    
50.         if "delBuy"="true" and _N_=&pos then buy=.;
    
51.                 else buy=buy;
    
52.         run;
    
53. 
    
54. %next:
    
55. %end;
    
56. %mend;
    
57. %test;

复制代码

if "delBuy"="true" and _N_=&pos then buy=.;

上面这一句需要修改一下："delBuy"改为"&delBuy"