有关循环

有如下格式数据
          var1   var2   var3
1          1
2          1.5
3          6
4          8
5          .
6          .
7          .
8          .
9          6
10       8.2
.           
.           
.           
n         

现需要在var2列生成var1[_n+5]，如果var1[_n+5]是缺失值，则等于var1[_n+4]，如果var1[_n+4]也是缺失值，则等于var1[_n+3]，以此类推，直到找到有数值的为止。
在var3列生成除去本行观察值之外的var1列的中值。

用以下数据举例，按上述规则，var2，var3的值应如下所示：
          var1      var2       var3
1          1           8           6
2          1.5        8           6
3          3.6        8           6
4          8           6          3.6
5          .          8.2        (6+3.6)/2  
6          .          8.2        (6+3.6)/2
7          .          8.2        (6+3.6)/2
8          .          8.2        (6+3.6)/2
9          6         8.2        (6+3.6)/2
10       8.2        8.2         3.6


上述问题大家有什么比较好的方法吗？观察值可能众多，因此也需要考虑运行速度的问题

1. capture drop var2
   
2. capture drop var3
   
3. gen var2=.
   
4. gen var3=.
   
5. 
   
6. forvalue i=1(1)`=_N' {
   
7.         forvalues j=5(-1)0 {
   
8.                 if var1[`=`i'+`j'']~=. {
   
9.                         replace var2=var1[`=`i'+`j''] in `i'
   
10.                         continue,break
    
11.             }
    
12.         }
    
13. qui centile var1 if _n~=`i'
    
14. qui replace var3=r(c_1) in `i'
    
15. }

复制代码

1. local obs=_N
   
2. capture drop var2
   
3. capture drop var3
   
4. gen var2=.
   
5. gen var3=.
   
6. 
   
7. forvalue i=1(1)`obs' {
   
8.     forvalues j=5(-1)0 {
   
9.                  if var1[`=`i'+`j'']~=. {
   
10.                         replace var2=var1[`=`i'+`j''] in `i'
    
11.                         continue,break
    
12.                   }
    
13.         }
    
14.         qui sum var1 if _n~=`i',d
    
15.         qui replace var3=r(p50) in `i'
    
16. }

复制代码

qui sum var1 if _n~=`i',d
qui replace var3=r(p50) in `i'

也可以改为
qui centile var1 if _n~=`i'
qui replace var3=r(c_1) in `i'

现需要在var2列生成var1[_n+5]，如果var1[_n+5]是缺失值，则等于var1[_n+4]，如果var1[_n+4]也是缺失值，则等于var1[_n+3]，以此类推，直到找到有数值的为止。

如果连续6个以上是缺失值，需要继续回溯取值吧？

dxystata 发表于 2013-12-22 09:19

1. local obs=_N
   
2. capture drop var2
   
3. capture drop var3
   
4. gen var2=.
   
5. gen var3=.
   
6. 
   
7. forvalue i=1(1)`obs' {
   
8. local  j =-`i'+1
   
9.     forvalues j=5(-1)`j' {
   
10.                  if var1[`=`i'+`j'']~=. {
    
11.                         replace var2=var1[`=`i'+`j''] in `i'
    
12.                         continue,break
    
13.                   }
    
14.         }
    
15.         qui sum var1 if _n~=`i',d
    
16.         qui replace var3=r(p50) in `i'
    
17. }

复制代码

kerrydu 发表于 2013-12-22 09:46
现需要在var2列生成var1[_n+5]，如果var1[_n+5]是缺失值，则等于var1[_n+4]，如果var1[_n+4]也是缺失值，则 ...

对的，需要继续回溯