如何设定日期间隔标记

1	2001/3/27		-5
1	2001/3/28		-4
1	2001/3/29		-3
1	2001/3/30		-2
1	2001/3/31		-1
1	2001/4/1	0	0
1	2001/4/2		1
1	2001/4/3		2
1	2001/4/4		3
1	2001/4/5		4
1	2001/4/6		5
1	2001/4/7
1	2001/4/8
1	2001/4/9
1	2001/4/10

原数据如id date pubdate  ，现在想生成如w的变量，该怎样写

proc sql;
   create table wanted as
    select l.*,
           case when abs(l.date-r.date)<=5 then (l.date-r.date)
                    else .
                        end as w
                from test as l  left join
                         test(where=(pubdate=0)) as r
                        on l.id=r.id
         order by id,date;
quit;

data wanted;
   merge test
         test(where=(_pubdate=0) rename=(date=_date pubdate=_pubdate));
   by id;
   w=ifn(abs(date-_date)<=5., date-_date, .);
   drop _:;
run;

楼主你好，我也写了一段，请试试看：

1. data _null_;
   
2.   format obs_list $200.;
   
3.   set temp end = eof;
   
4.   retain obs_list "";
   
5.   if pubdate = 0 then
   
6.     obs_list = strip(obs_list) || strip(_N_) || strip(",") ;
   
7. 
   
8.   if eof then
   
9.     call symput("obs_list", substr(strip(obs_list), 1, length(strip(obs_list)) - 1));
   
10. run;
    
11. 
    
12. %put &obs_list.;
    
13. 
    
14. data wanted;
    
15.   set temp;
    
16. 
    
17.   retain iCurrent 1;
    
18. 
    
19.   if abs(_N_ - scan("&obs_list.", iCurrent, ",")) <= 5 then do;
    
20.     w = _N_ - scan("&obs_list.", iCurrent, ",");
    
21.     if w = 5 then do;
    
22.       iCurrent = iCurrent + 1;
    
23.     end;
    
24.   end;
    
25.   else
    
26.     w = .;
    
27.   drop iCurrent;
    
28. run;

复制代码

pobel 发表于 2014-10-30 07:32
proc sql;
   create table wanted as
    select l.*,

5314
5315   data wanted;
5316      merge test
5317            test(where=(_pubdate=0) rename=(date=_date pubdate=_pubdate));
ERROR: WHERE 子句运算符要求兼容的变量。
5318      by id;
5319      w=ifn(abs(date-_date)<=5., date-_date, .);
5320      drop _:;
5321   run;

NOTE: 由于出错，SAS 系统停止处理该步。
WARNING: 数据集 WORK.WANTED 可能不完整。该步停止时，共有 0 个观测和 4 个变量。
WARNING: 数据集 WORK.WANTED 由于该步已停止，而没有被替换。
NOTE: “DATA 语句”所用时间（总处理时间）:
      实际时间          0.00 秒
      CPU 时间          0.00 秒

pobel 发表于 2014-10-30 07:36
data wanted;
   merge test
         test(where=(_pubdate=0) rename=(date=_date pubdate=_pubdate) ...

5322
5323
5324   proc sql;
5325      create table wanted as
5326       select l.*,
5327              case when abs(l.date-r.date)<=5 then (l.date-r.date)
5328                       else .
5329                           end as w
5330                   from test as l  left join
5331                            test(where=(pubdate=0)) as r
5332                           on l.id=r.id
5333            order by id,date;
ERROR: WHERE 子句运算符要求兼容的变量。
5334   quit;
NOTE: 由于出错，SAS 系统停止处理该步。
NOTE: “PROCEDURE SQL”所用时间（总处理时间）:
      实际时间          0.00 秒
      CPU 时间          0.01 秒

小鳄鱼a 发表于 2014-10-30 12:38
5322
5323
5324   proc sql;

如果pubdate是字符型变量，那就是 =“0”

我这里给个傻瓜的方法，就是正着排一次求1，2，3...
然后再反着排一次求-1,-2,-3...
用了三个sort（如一开始有序，则只用了两次sort）加两个data步
都是顺序执行的，可能不比sql慢

1. proc sort data=data;
   
2.         by id date;
   
3. run;
   
4. 
   
5. data data;
   
6.         set data;
   
7.         by id;
   
8.         retain w;
   
9.         if first.id or pubdate=0 then w=pubdate;
   
10.         else w=w+1;
    
11. run;
    
12. 
    
13. proc sort data=data;
    
14.         by id DESCENDING date;
    
15. run;
    
16. 
    
17. data data;
    
18.         set data;
    
19.         by id;
    
20.         retain w w_tmp;
    
21.         if first.id and pubdate NE 0 then w_tmp=.;
    
22.         else if pubdate=0 and w=0 then w_tmp=0;
    
23.         else if w=. then w_tmp=w_tmp-1;
    
24. run;
    
25. 
    
26. data data(drop=w_tmp);
    
27.         set data;
    
28.         if w=. then w=w_tmp;
    
29. run;
    
30. 
    
31. proc sort data=data;
    
32.         by id date;
    
33. run;

复制代码

pobel 发表于 2014-10-30 07:36
data wanted;
   merge test
         test(where=(_pubdate=0) rename=(date=_date pubdate=_pubdate) ...

能否解释下ifn  这个函数啊     谢谢  

pobel 发表于 2014-10-29 20:59
proc sql;
   create table wanted as
    select l.*,

select l.*,    什么意思啊