本人新手，求高手指教

zhangzachary 发表于 2012-2-6 14:44
你想要的是什么样的结果？
比如，输入301（第301天），然后计算从第（301-26*7）天开始到第300天的spendin ...

你说得对，就是这个意思。

carol1222 发表于 2012-2-6 14:54
spending的值都有的，没有缺失值。如果缺失，当做0处理。

spending的值好处理，那么realday呢？是每天都有，还是说只需要将在301-26*7+2到300之间存在的realday值的spending加起来？虽然意思是差不多的，不过程序处理上会略有不同，所以请说明

zhangzachary 发表于 2012-2-6 15:07
spending的值好处理，那么realday呢？是每天都有，还是说只需要将在301-26*7+2到300之间存在的realday值的 ...

不是每天都有的，就跟我给出的例子一样，只有某些天有值，比如10000501在27,187，201等有值，所以要有个判断，那些天是出于这个区间内的

zhangzachary 发表于 2012-2-6 15:07
spending的值好处理，那么realday呢？是每天都有，还是说只需要将在301-26*7+2到300之间存在的realday值的 ...

您有解了吗？

carol1222 发表于 2012-2-6 15:22
您有解了吗？

1. data a;
   
2. input id $ realday spending;
   
3. datalines;
   
4. 10000501 27 27.6
   
5. 10000501 187 3.9
   
6. 10000501 201 9.1
   
7. 10000501 218 3.5
   
8. 10000501 249 3.6
   
9. 10000501 270 3.5
   
10. 10000501 274 8.3
    
11. 10000501 292 35.7
    
12. 10000501 322 2.3
    
13. 10000501 333 7.9
    
14. 10000501 343 36
    
15. 10000501 434 4.4
    
16. 10000501 476 7.9
    
17. 10000501 486 5
    
18. 10000501 504 10.2
    
19. 10000501 508 3.6
    
20. ;
    
21. run;
    
22. 
    
23. 
    
24. %macro ff(id_want,day);
    
25. proc sql noprint;
    
26. select sum(spending) into :bf_day
    
27.   from a
    
28.   where id=symget("id_want") and (&day.-26*7+2)<=realday<=(&day.-1)
    
29.   ;
    
30. select sum(spending) into :af_day
    
31.   from a
    
32.   where id=symget("id_want") and (&day.+1)<=realday<=(&day.+26*7-2)
    
33.   ;
    
34. quit;
    
35. data res;
    
36. set a;
    
37. if id=symget("id_want") and realday=symget("day");
    
38. bfday=symget("bf_day");
    
39. afday=symget("af_day");
    
40. run;
    
41. %mend ff;
    
42. 
    
43. %ff(10000501,292)

复制代码

最好把最后realday bfday afday那里的symget变成symgetn，虽然不会影响结果，不过考虑到变量类型和让log规范一点，还是用symputn更好~

zhangzachary 发表于 2012-2-6 15:30
最好把最后realday bfday afday那里的symget变成symgetn，虽然不会影响结果，不过考虑到变量类型和让log规范 ...

真是万分感谢！
我现在如果每个realday的前26周，后26周的值，都要。而且要output到sas 的数据集里面，应该怎么办啊？

zhangzachary 发表于 2012-2-6 15:26

还有个问题，ID是有多个不同的ID的，那么我在最后的output数据集里面需要把他们都列出来，应该怎么办呢？

carol1222 发表于 2012-2-6 15:35
还有个问题，ID是有多个不同的ID的，那么我在最后的output数据集里面需要把他们都列出来，应该怎么办呢？

1. data a;
   
2. input id $ realday spending;
   
3. datalines;
   
4. 10000501 27 27.6
   
5. 10000501 187 3.9
   
6. 10000501 201 9.1
   
7. 10000501 218 3.5
   
8. 10000501 249 3.6
   
9. 10000501 270 3.5
   
10. 10000501 274 8.3
    
11. 10000501 292 35.7
    
12. 10000501 322 2.3
    
13. 10000501 333 7.9
    
14. 10000501 343 36
    
15. 10000501 434 4.4
    
16. 10000501 476 7.9
    
17. 10000501 486 5
    
18. 10000501 504 10.2
    
19. 10000501 508 3.6
    
20. ;
    
21. run;
    
22. 
    
23. data a;
    
24. input id $ realday spending;
    
25. datalines;
    
26. 10000501 27 27.6
    
27. 10000501 187 3.9
    
28. 10000501 201 9.1
    
29. 10000501 218 3.5
    
30. 10000501 249 3.6
    
31. 10000501 270 3.5
    
32. 10000501 274 8.3
    
33. 10000501 292 35.7
    
34. 10000501 322 2.3
    
35. 10000501 333 7.9
    
36. 10000501 343 36
    
37. 10000501 434 4.4
    
38. 10000501 476 7.9
    
39. 10000501 486 5
    
40. 10000501 504 10.2
    
41. 10000501 508 3.6
    
42. ;
    
43. run;
    
44. 
    
45. data _null_;
    
46.   set a end=eof;
    
47.   if eof then call symput("N",_n_);
    
48. run;
    
49. 
    
50. data a;
    
51.   set a;
    
52.   bfday=0;
    
53.   afday=0;
    
54. run;
    
55. 
    
56. %macro ff;
    
57. 
    
58. %do i=1 %to &N.;
    
59. 
    
60. data _null_;
    
61.   set a(firstobs=&i. obs=&i.);
    
62.   call symput("id_want",id);
    
63.   call symput("day",realday);
    
64. run;
    
65. 
    
66. proc sql noprint;
    
67. select sum(spending) into :bf_day
    
68.   from a
    
69.   where id=symget("id_want") and (&day.-26*7+2)<=realday<=(&day.-1)
    
70.   ;
    
71. select sum(spending) into :af_day
    
72.   from a
    
73.   where id=symget("id_want") and (&day.+1)<=realday<=(&day.+26*7-2)
    
74.   ;
    
75. quit;
    
76. 
    
77. data a;
    
78. set a;
    
79. if id=symget("id_want") and realday=symgetn("day") then do;
    
80. bfday=symgetn("bf_day");
    
81. afday=symgetn("af_day");
    
82. end;
    
83. run;
    
84. %end;
    
85. 
    
86. %mend ff;
    
87. 
    
88. %ff

复制代码

不好意思初始数据a多复制了一次……主要参考之后的程序~