用sas怎么将后一列的数值填充前一列的缺失值，如果前一列不缺失，则不填充

比如：
data a;
  input x1 x2 x3 x4;
  cards;
  1 2 3 .
  .  2 5 3
  2 .  6 4
  4 3  2 5

  ;
run;

生成
x1 x2 x3 x4
1   2   3    .
2   5   3    .
2   6   4    .
4   3   2    5
谢谢！

data a;
   input x1 x2 x3 x4;
cards;
1 2 3 .
. 2 5 3
2 . 6 4
4 3 2 5
;
run;

data b;
   set a;
   y=catx('.',of x1-x4);
   array x[*] x1-x4;
   do i=1 to dim(x);
      x[i]=input(scan(y,i),best12.);
   end;
   keep x1-x4;
run;

为了20个论坛币，写一段：

1. data  result;
   
2.         set a;
   
3.         array arrayNum x1-x4;
   
4.         do i=1 to dim(arrayNum);
   
5.                 if arrayNum(i)^=. then continue;
   
6.                 do j=i+1 to dim(arrayNum);
   
7.                         if arrayNum(j)^=. then do;arrayNum(i)=arrayNum(j);arrayNum(j)=.;leave;end;
   
8.                 end;
   
9.         end;
   
10.         drop i j;
    
11. run;

复制代码

变量数少的话，用retain也行。代码啰嗦，但好理解。并且可以并进一步。

data a(drop = x1-x4);
retain y1 y2 y3 y4 .;
  input x1 x2 x3 x4 ;
  if x1 ne . then y1=x1;
  if x2 ne . then y2=x2;
  if x3 ne . then y3=x3;
  if x4 ne . then y4=x4;
  cards;
  1 2 3 .
  .  2 5 3
  2 .  6 4
  4 3  2 5
  ;
run;