一个SAS难题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

数据集a部分数据如下

time	n
9:25:08	1
9:30:03	1
9:30:08	1
9:30:13	1
9:30:18	0
9:30:23	0
9:30:33	1
9:30:38	0
9:30:43	1
9:30:53	1
9:31:03	1
9:31:08	0

问题是增加一列interval，interval等于n列1或0持续出现的时间

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：Interval inter Inte time 部分数据

1. data out;
   
2. set a;
   
3. retain starttime;
   
4. if n^=lag(n) then do;
   
5. starttime=time;
   
6. interval=0;
   
7. end;
   
8. if n=lag(n) then
   
9. interval =time-starttime;

复制代码

data timecum;
  set test;
  by n notsorted;
  if first.n;
  timelag=lag(time);
  timeinterval=time-timelag;
  format timeinterval time8.;
  drop timelag;
run;

1. data raw;
   
2. input time time7.  n;
   
3. cards;
   
4. 9:25:08  1
   
5. 9:30:03  1
   
6. 9:30:08  1
   
7. 9:30:13  1
   
8. 9:30:18  0
   
9. 9:30:23  0
   
10. 9:30:33  1
    
11. 9:30:38  0
    
12. 9:30:43  1
    
13. 9:30:53  1
    
14. 9:31:03  1
    
15. 9:31:08  0
    
16. ;
    
17. run;
    
18. 
    
19. data wanted;
    
20. set raw;
    
21. retain time1;
    
22. n1=lag(n);
    
23. if n1^=n then time1=time;
    
24. interval=time-time1;
    
25. format time interval time7.;
    
26. drop n1 time1;
    
27. run;

复制代码

boe的报warning，可以改一下。

1. data wanted1;
   
2. set raw;
   
3. retain time1;
   
4. by n notsorted;
   
5. if first.n then time1=time;
   
6. if last.n then interval=time-time1;
   
7. format  time interval time7.;
   
8. drop n1 time1;
   
9. run;

复制代码

heperwong 发表于 2013-5-9 18:00
boe的报warning，可以改一下。

我这里没问题啊。你的结果和我的不一样，主要是在处理1和0、0和1交替的地方，不知道哪一种方法合理？

谢谢了

mark一下

1. data a;
   
2.         input t :time9. type :best6.;
   
3.         format t time9.;
   
4.         cards;
   
5. 9:25:08        1
   
6. 9:30:03        1
   
7. 9:30:08        1
   
8. 9:30:13        1
   
9. 9:30:18        0
   
10. 9:30:23        0
    
11. 9:30:33        1
    
12. 9:30:38        0
    
13. 9:30:43        1
    
14. 9:30:53        1
    
15. 9:31:03        1
    
16. 9:31:08        0
    
17. ;
    
18. run;
    
19. 
    
20. data b(keep=t type z);
    
21.         format ctype best6. ct time9. z time9.;
    
22.         ctype=type;
    
23.         ct=t;
    
24.         set a;
    
25.         retain z;
    
26.         if type=ctype then z+t-ct;
    
27.                 else z=0;
    
28. run;

复制代码

data b;
informat time time8.;
format time time8.;
input time /n;
cards;
9:25:08
1
9:30:03
1
9:30:08
1
9:30:13
1
9:30:18
0
9:30:23
0
9:30:33
1
9:30:38
0
9:30:43
1
9:30:53
1
9:31:03
1
9:31:08
0
;run;
proc sort data=b;
by time;
run;
data want;
set b;
retain starttime 0;
if _n_=1 then starttime=time;
if n^=lag(n) then do;starttime=time;d=0;end;
if n=lag(n) then d=time-starttime;
run;