求助用HASH做条件DUMMY

1. data x;
   
2. input u a b $;
   
3. cards;
   
4. 1 1 i
   
5. 1 2 u
   
6. 1 3 o
   
7. 1 3 p
   
8. 1 5 y
   
9. 2 1 p
   
10. 2 4 o
    
11. 2 5 y
    
12. ;

复制代码

如上数据集，得到结果如下：

1 1 i
1 2 u
1 3 o
1 3 p
1 4 p
1 5 y
2 1 p
2 2 p
2 4 o
2 5 y

规则如下：
想做一个a = 1 to 5的循环，对于每一个u，如果没有某条a，例如（u = 1；a = 4），并且（u = 1；a = 4 - 1）是有的。
则按照前一条观测向下retain。

求解答，谢谢。

自己写的毛坯程序，当然是错的，注意直接运行SAS会卡死。。

1. data x;set x;
   
2.   aa = a;
   
3. run;
   
4. 
   
5. data x;
   
6.   if 0 then set x;
   
7.   if _n_ = 1 then do;
   
8.     dcl hash h(dataset:'x');
   
9.         h.definekey('u','a');
   
10.         h.definedata(all:'Y');
    
11.         h.definedone();
    
12.         
    
13.     dcl hash g(dataset:'x');
    
14.         g.definekey('u','aa');
    
15.         g.definedata(all:'Y');
    
16.         g.definedone();
    
17.   end;
    
18.   
    
19.   set x;
    
20.     by u a aa;
    
21.   output;
    
22.   
    
23.   if first.u then do;
    
24.     do a = 1 to 5;
    
25.     aa = a - 1;
    
26.       if h.find(key:u,key:a) and not g.find(key:u,key:aa) then do;
    
27.           /*          */
    
28.                     output;
    
29.       end;
    
30.     end;
    
31.   end;
    
32. run;

复制代码

跟上次一样，加个判断的变量。

1. data x;
   
2. input u a b $;
   
3. cards;
   
4. 1 1 i
   
5. 1 2 u
   
6. 1 3 o
   
7. 1 3 p
   
8. 1 5 y
   
9. 2 1 p
   
10. 2 4 o
    
11. 2 5 y
    
12. ;
    
13. 
    
14. proc sort;by u a;run;
    
15. data x1;
    
16.     set x;
    
17.     by u a;
    
18.     if last.a;
    
19. run;
    
20. 
    
21. data y;
    
22. 
    
23.         if 0 then set x1;
    
24.         if _n_ = 1 then do;
    
25.                 declare hash h(dataset:'x1');
    
26.                 h.definekey('u','a');
    
27.                 h.definedata(all:'yes');
    
28.                 h.definedone();
    
29.         end;
    
30. 
    
31.         set x;
    
32.         by u a;
    
33.         output;      
    
34. 
    
35.         if first.u then do;
    
36.                 flag=1;
    
37.                 do a=1 to 5;
    
38.                         if h.find(key:u,key:a) then do;
    
39.                                 if flag=1 then do;
    
40.                                         h.replace();
    
41.                                         output;
    
42.                                         flag=0;
    
43.                                 end;
    
44.                         end;
    
45.                 end;
    
46.         end;
    
47.         drop flag;      
    
48. run;
    
49. 
    
50. proc sort;by u a;run;

复制代码

结果对了。不知道是否满足你的要求。
有个问题，就是a如果重复出现，在retain时，没想到特别好的解决方法。
我只想到暂时用data步把hash进内存的表提前做了修改。

规则没看懂，再描述下。

zhengbo8 发表于 2014-1-2 20:46
规则没看懂，再描述下。

好的。

规则如下：

想对于每一个u做一个a = 1 to 5的循环，判断

如果对于某个u没有某条a，例如（u = 1时；没有a = 4），并且u = 1时；a = 4 的上一个数 a = 3 是有的。

则按照这个上一条的观测在此插入一条观测。

有点像上次做的那个DUMMY，只不过这次如果中间不连的话，就不做DUMMY，

例如 a = 1，2，5 缺少3和4的观测，把3按照他前面的2复制一条观测并插入数据集；4前面的3缺失，就把4直接略过。

如果上一个数a=3也没有，是不是要插两个。

zhengbo8 发表于 2014-1-2 21:50
跟上次一样，加个判断的变量。
结果对了。不知道是否满足你的要求。
有个问题，就是a如果重复出现，在ret ...

用起来是对的！非常感谢，中午休息时，我再好好理解一下，3Q大神！！