如何在x取值为0这一行上添加一行空行

1. data aaa;
   
2. input x;
   
3. cards;
   
4. 0
   
5. 1
   
6. 1
   
7. 0
   
8. 1
   
9. 1
   
10. 1
    
11. 0
    
12. 1
    
13. 1
    
14. ;
    
15. run;

复制代码

如何在x取值为0的这一行上添加一行空行，不包括首行。得到的数据集如下：
0
1
1
.
0
1
1
1
.     
0
1
1

data want;
   set aaa;
   if _n_=1 then output;
   else if x=0 then do;
      x=.;output;
      x=0;output;
   end;
   else output;
run;

1. data b;
   
2.    set aaa;
   
3.    id = _n_;
   
4. run;
   
5. 
   
6. data c;
   
7.    set b(where=(x eq 0));
   
8.    x = .;
   
9.    if id eq 1 and x eq . then
   
10.       delete;
    
11. run;
    
12. 
    
13. data d;
    
14.    set b c;
    
15. proc sort;by id x;
    
16. run;

复制代码

l1i2n3i4n5g 发表于 2019-9-3 16:40
data want;
   set aaa;
   if _n_=1 then output;

1. data aaa;
   
2. input x x1$ x2$ y;
   
3. cards;
   
4. 0 a b 1
   
5. 1 c d 1
   
6. 1 a a 1
   
7. 0 b b 2
   
8. 1 c c 2
   
9. 1 c c 2
   
10. 1 c d 2
    
11. 0 a c 1
    
12. 1 a d 1
    
13. 1 b c 1
    
14. ;
    
15. run;

复制代码

如果x后有很多变量，这些变量如何也变成缺失。

dxystata 发表于 2019-9-8 01:46
如果x后有很多变量，这些变量如何也变成缺失。

data want;
   do i=1 to nobs;
      set aaa point=i nobs=nobs;
      if i=1 then output;
      else if x=0 then do;
         call missing(of _all_);output;
         set aaa point=i;output;
      end;
      else output;
   end;
   stop;
run;