请问个有条件做标记的问题

请看附件

proc import datafile='\book1.xlsx'
                dbms=xlsx
                out=test replace;
                range="Sheet1$A19:D46";
        getnames=yes;
run;

%macro test(n=,m=);
%let k=%eval(&n+1);
data test1;
        merge test %do i=2 %to &k; test(keep=tcode rename=(tcode=tcode&i) firstobs=&i) %end;;
run;

data test1(keep=fcode        date         tcode        yn _yn);
        set test1;
        retain _cnt _yn;
        if sum(tcode=tcode2>. %do j=3 %to &k; ,tcode=tcode&j>. %end;)>=&m and not missing(tcode&k) then do;
                _yn=1;
                _cnt=1;       
        end;       
        else if _cnt>&n then do;
        _cnt=1;
        _yn=0;
        end;       
        else _cnt+1;
run;
%mend;
%test(n=3, m=2);

意思是连续4个数，出现任意3个就标记1？ 那。。箭头那符合吗？

sushe1527 发表于 2014-12-26 10:08
意思是连续4个数，出现任意3个就标记1？ 那。。箭头那符合吗？

是，前提是从当期往前看三期，实际上如果这样的，第12个的200406刚开始应该不赋值或者赋值为0，但是当看200412的时候，由于条件满足，又重新被赋值为1

小鳄鱼a 发表于 2014-12-26 10:13
是，前提是从当期往前看三期，实际上如果这样的，第12个的200406刚开始应该不赋值或者赋值为0，但是当看2 ...

我知道你的意思，我是说两个红色箭头都符合条件？最终产生连续6个1的结果？任何连续3个数字加个空行，都会产生4选3的结果。妥妥的 这样的都符合条件？
。
。
。
。
2010
2010
2010
。
。
。
。

sushe1527 发表于 2014-12-26 10:31
我知道你的意思，我是说两个红色箭头都符合条件？最终产生连续6个1的结果？任何连续3个数字加个空行，产生 ...

哦   我明白您的意思了   不好意思   是我疏忽了     加个限定条件吧   当期t持有的情况下，t-3期也是要持有的这个样只要t-1 t-2中任意一期持有条件都满足

1. data b;
   
2. set test;
   
3. id=_n_;
   
4. run;
   
5. proc sql;
   
6. create table c as select b.*,b1.id as id1,b1.tcode as new_tcode,b.id-b1.id as value from b,b as b1 where 0<=b.id-b1.id<=3 order by b.id;
   
7. quit;       
   
8. proc sort data=c out=c1;by id id1;run;
   
9. data c2;
   
10. set c1;
    
11. by id id1;
    
12. if first.id then do;
    
13. if not missing(new_tcode) then sum=2;
    
14. else sum=0;
    
15. end;
    
16. if not first.id and not last.id then do;
    
17. if not missing(new_tcode) then sum+1;
    
18. end;
    
19. if last.id then do;
    
20. if not missing(new_tcode) then sum+2;
    
21. end;
    
22. run;
    
23. proc sql;
    
24. create table c3 as select *,max(sum) as yn,case when calculated yn>=5 then 1 else 0 end as yn1 from c2 group by id;
    
25. create table c4 as select distinct id1,max(yn1) as yn from c3 group by id1;
    
26. create table c5 as select id,tcode,yn from b,c4 where id1=id order by id;
    
27. quit;

复制代码