用两列相除的平均和乘以一列减去前一列来填充一列的空值 SAS

Question

我需要用两列相除的平均值乘以一列和 rest 来填充一列的空值 一个例子是

A B_01 B_02 ... B_60
5  .    .
5  2    3
7  3   1,2
9  3   0,3
4  .    .

好吧，我希望 B_01 列的缺失值为 (2/5 + 3/7 + 3/9) / 3 * 其对应的 A 列 B_02(3/5 + 1,2/7 + 0,3 /9)/3 * 其对应的A列——他在B_01中的新值

我考虑过这样做，但事实证明我有 60 根柱子可以用来做这件事，我想到的唯一方法就是这样做 60 次。

Proc sql;
  create table new as
  Select *
  , sum(B_01/A)/sum(case when B_01 is missimg then . else 1)*A end as new_B_01
  , sum(B_02/A)/sum(case when B_02 is missimg then . else 1)*A-B_01 end as new_B_02
  from table_one
  ;

谢谢

Answer 1

这可能就是你想要的。

data test;
   input A B_01-B_02;
   cards;
5  .    .
5  2    3
7  3   1.2
9  3   0.3
4  .    .
;;;;

data test2;
   set test;
   array B_ B_01-B_02;
   array M_[2];
   do i = 1 to dim(m_);
      if not missing(b_[i]) then m_[i]= divide(b_[i],a);
      end;
   drop i;
   run;
proc print;
    run; 
proc stdize reponly  missing=mean data=test2 out=mean;
   var m_:;
   run;
proc print;
   run;   
data mean2;
   set mean;
   array B_ B_01-B_02;
   array M_[2];
   do i = 1 to dim(m_);
      b_[i] = coalesce(b_[i],m_[i]);
      end;
   drop i m_:;
   run;
proc print;
   run;