特急问大家一个问题，谢谢了

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我现在的问题是，我有两个数列

对应时间： 2006 2005 2004 1998 1997 1996

数列A：     a1   a2   a3   a4   a5   a6

数列B：     b1   b2   b3   b4   b5   b6

我现在想算出数列C（t）=A（t）/B(t-1)

这样的话C(2004)就是没有数值的，我应该在SAS中编写怎样的程序才能实现这个想法呢？谢谢大家

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：程序

data a;                                                                                                                                
input t A B;                                                                                                                           
cards;                                                                                                                                 
2006 1 2                                                                                                                               
2005 2 3                                                                                                                               
2004 3 4                                                                                                                               
1998 5 6                                                                                                                               
1997 6 7                                                                                                                               
1996 7 8                                                                                                                               
;                                                                                                                                      
run;                                                                                                                                   
                                                                                                                                       
                                                                                                                                       
proc sort data=a;                                                                                                                      
 by t;                                                                                                                                 
run;                                                                                                                                   
                                                                                                                                       
                                                                                                                                       
data b (keep=t C) ;                                                                                                                    
        set a;                                                                                                                         
        lag_B=lag(B);                                                                                                                  
 if t=lag(t)+1 then do C=A/lag_B                                                                                                       
 ;end;                                                                                                                                 
run;                                                                                                                                   
                                                                                                                                       
proc print data=b;                                                                                                                     
run;                                                                                                                                   
     

lili83xu's solution is perfect! What I added is nothing new - just to make sure C is set to missing when it is supposed to be so.

---------------------------------------------

data b(keep=t C);
set a;
lag_B=lag(B);
if t=lag(t)+1 then C=A/lag_B;
else C=.;
run;