急！重金悬赏SAS一小段编程

1.数据描述
数据为各个分析师i在j年(2006年至2013年)的不同t时刻对于不同股票z的盈利预测(EPS)
每年都有许多分析师在多个不同日期对多支股票作出预测

变量                       变量名label                       数据类型
分析师     i                Analyst                              字符
年份        j                Year                                  数值
预测日期 t                LWritDt                             数值
股票代码 z               Stkcd                                 数值
盈利预测                  EPS                                   数值

为方便表述，下文中EPS_ijtz表示分析师i在j年(2006年至2013年)的不同t时刻对于不同股票z的盈利预测

2.需要编程完成的工作
定义变量
变量名                      定义
Consensus_jzt          j年t时刻之前的市场一致预测：即j年0-t时刻所有分析师对于同一股票z的盈利预测的平均值

Boldness  = 1,            “EPS_ijzt>EPS_ijz(t-1) 且 EPS_ijzt>Consensus_jzt”
                         或者 “EPS_ijzt<EPS_ijz(t-1) 且 EPS_ijzt<Consensus_jzt”
Boldness = 0,            otherwise
即如果分析师i在j年t时刻对于股票z的预测值EPS_ijzt，同时大于(或小于)该分析师i在j年的t-1时刻对于股票z的预测值EPSEPS_ijz(t-1)和j年t时刻之前的市场一致预测Consensus_jzt，虚拟变量Boldness赋值为1；否则，虚拟变量Boldness赋值为0。

你的论坛币总共才14个，咋支付得起80个币啊

1. data ori;
   
2. do i=1 to 100;
   
3.     do j=2006 to 2013;
   
4.         _t=ceil(ranuni(0)*250);
   
5.             do t=1 to _t;
   
6.                 _z=ceil(ranuni(0)*30);
   
7.                 do z=1 to _z;
   
8.                     if mod(i,5) then eps=rannorm(0)*0.5+0.3;
   
9.                     output;
   
10.                 end;
    
11.             end;
    
12.         end;
    
13.     end;
    
14. end;
    
15. label i="Analyst" j="year" t="lwritdt" z="stkcd" ;
    
16. run;
    
17. proc sort data=ori;by i j z t;run;
    
18. data ori;
    
19. set ori;
    
20. by i j z;
    
21. eps_t_1=lag1(eps);
    
22. if first.z then eps_t_1 = .;
    
23. run;
    
24. proc sql noprint;
    
25. create table concensus as
    
26. select a.i
    
27. , a.j
    
28. , a.z
    
29. , a.t
    
30. , case when a.eps>a.eps_t_1 and a.eps>b.concensus_jzt then 1
    
31.        when a.eps<a.eps_t_1 and a.eps<b.concensus_jzt then 1
    
32.        else                                                0
    
33.   end   as boldness
    
34. from ori a left join (
    
35.     select b1.j
    
36.          , b1.z
    
37.          , b1.t
    
38.          , mean(b2.eps)  as concensus_jzt
    
39.       from (select distinct j,t,z from ori) b1, ori b2
    
40.      where b1.j=b2.j
    
41.        and b1.t>b2.t
    
42.        and b1.z=b2.z
    
43.      group by 1,2,3
    
44. ) b
    
45. on a.j=b.j
    
46. and a.z=b.z
    
47. and a.t=b.t
    
48. ;
    
49. quit;

复制代码

哈哈哈哈哈哈

denver 发表于 2014-4-6 19:48
你的论坛币总共才14个，咋支付得起80个币啊

A blank cheque?