怎样找出数据缺失的股票

都写的太复杂了，一个很步简单的data步就可以搞定了，呵呵

zhengbo8 发表于 2013-1-22 14:34
不用宏、SQL，下面的data步方法：

在数据集中创建一个标示标量 is_missing，判断该条观测是否为缺失值的 ...

这个好

learsaas 发表于 2014-4-22 14:22
都写的太复杂了，一个很步简单的data步就可以搞定了，呵呵

尝试一下：

1. data a;
   
2.     set data1;
   
3.     by stk;
   
4.     dt=ymd(input(substr(ym,1,4)), input(substr(ym,5,2)),1);
   
5.     if fist.stk then do;
   
6.            _dt=dt;
   
7.              i=0;
   
8.            end;
   
9.     _dt=intnx('month',_dt, i);
   
10.     do while(dt != _dt);
    
11.         output;
    
12.         i+1;
    
13.         _dt=intnx('month',_dt, i);
    
14.     end;
    
15.     i+1;
    
16.     return;
    
17.     keep stk _dt;
    
18. run;

复制代码

看似代码少，其实很容易错。感觉跟写C和perl一样。不是高频数据，用上边说过的先建立一个perfect主表，left join实际数据，找出缺失值输出来简单可靠。。

learsaas 发表于 2014-4-22 14:22
都写的太复杂了，一个很步简单的data步就可以搞定了，呵呵

1. data a;

复制代码

farmman60 发表于 2014-5-11 05:56

1. data a;
   
2. input stock $8. @13 month yymmn6. @24 index 8.4;
   
3. format month yymmn6.;
   
4. datalines;
   
5. 000001      192801     0.3
   
6. 000001      192802     0.4
   
7. 000001      192803     0.3
   
8. 000001      192804     0.4
   
9. 000001      192805     0.3
   
10. 000001      192806     0.4
    
11. 000001      192807     0.3
    
12. 000001      192809     0.4
    
13. 000002      192801     0.3
    
14. 000002      192802     0.8
    
15. 000002      192804     0.4
    
16. 000002      192805     0.3
    
17. 000002      192806     0.4
    
18. 000002      192807     0.3
    
19. 000002      192808     0.4
    
20. ;
    
21. run;
    
22. 
    
23. data want;
    
24. merge a a(firstobs=2 keep=stock month rename=(stock=_stock month=_month));;
    
25. output;
    
26. if stock=_stock then do;
    
27.           if _month-month>1 then do;
    
28.    do i=1 to intck('month',month,_month)-1;
    
29.    month=intnx('month',month,i);
    
30.    call missing(index);
    
31.    output;
    
32. end;
    
33. end;
    
34. end;
    
35. drop _stock _month i;
    
36. run;

复制代码

其实这个很简单，转置一下就行了；
data a;
input stk $ time $ c ;
cards;
000001      192801     0.3
000001      192802     0.4
000001      192803     0.3
000001      192804     0.4
000001      192805     0.3
000001      192806     0.4
000001      192807     0.3
000001      192809     0.4
000002      192801     0.3
000002      192802     0.8
000002      192804     0.4
000002      192805     0.3
000002      192806     0.4
000002      192807     0.3
000002      192808     0.4
;
run;

proc sort data= a out=b ;
  by  stk time;
run;

proc transpose data=b out=c name= var label= varlist ;
  id time;
  by stk;
  var c;
run;

proc transpose data=c out=d (rename=(_name_=time col1=C));
  by stk ;
  var _:;
run;

data final;
  set d;
  time= strip(tranwrd(time,'_',''));
  label time= 'Time';
run;