sas 循环问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

publishday        price
2011-8-2           20
2011-8-3           15
2011-8-4           14
2011-8-6           21
2011-8-7           19
2011-8-8           17
2011-8-9           22
211-8-10            21
...
这一组数据现在要重新调整  
2011-8-2号当天得到的是接下来3的数（不管那天是否有值），即3,4,5号三天的值。重新编排。
publishday     price
2011-8-2       15  14
2011-8-3       14  21
2011-8-4       21  19
2011-8-5       21 19 17
...

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Publish Price Rice ice Day

谢谢大家！帮帮忙！

lvyuqin0624 发表于 2011-11-24 16:10
谢谢大家！帮帮忙！

FYI.

1. data Original;
   
2. input publishday yymmdd10. price;
   
3. cards;
   
4. 2011-8-2 20
   
5. 2011-8-3 15
   
6. 2011-8-4 14
   
7. 2011-8-6 21
   
8. 2011-8-7 19
   
9. 2011-8-8 17
   
10. 2011-8-9 22
    
11. 2011-8-10 21
    
12. ;
    
13. run;
    
14. 
    
15. %macro match();
    
16. proc sql noprint;
    
17. select min(publishday) into : mindate
    
18. from Original;
    
19. select max(publishday) into : maxdate
    
20. from Original;
    
21. quit;
    
22. 
    
23. data alldates;
    
24. %do i=&mindate. %to &maxdate.;
    
25. publishday=&i.;
    
26. price=.;
    
27. output;
    
28. %end;
    
29. format publishday yymmdd10.;
    
30. run;
    
31. 
    
32. proc sql;
    
33. create table final as
    
34. select a.publishday,b.price from alldates as a
    
35. left join Original as b
    
36. on a.publishday=b.publishday;
    
37. quit;
    
38. %mend;
    
39. %match;
    
40. 
    
41. data test;
    
42. set final(firstobs=2 rename=(price=price1));
    
43. set final(firstobs=3 rename=(price=price2));
    
44. set final(firstobs=4 rename=(price=price3));
    
45. publishday=publishday-3;
    
46. format publishday yymmdd10.;
    
47. price=compress(put(price1,8.)||' '||put(price2,8.)||' '||put(price3,8.),'.');
    
48. run;
    
49. proc print;run;

复制代码

you may do like this as well. JingJu

https://bbs.pinggu.org/forum.php? ... ;extra=#pid10981156

tj0412ymy 发表于 2011-11-24 17:36
FYI.

多谢！