SAS编写用平均值替代缺失值

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

编制程序：
3个变量d1-d3，数据如下：
1      2       7
2      3       .
3      .         4
要求：如果发现缺失值，即用该行数据的平均值代替，输出结果如下：
1       2       7
2       3       2.5
3       3.5     4
我的程序如下：
data;
input d1-d3;
array s d1-d3;
total=d1+d2+d3;
do i=1 to 3;
if s=.  then s=total/3;
end;
cards;
1      2       7  
2      3       .
3      .         4
;
run;
proc print;
run;
但是结果出不来，求高手请教！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：平均值 缺失值 Total Input cards SAS 缺失 编写 平均值

total=d1+d2+d3;
计算的是非缺失变量的和
既然D2 D3都有缺失
就不能那样计算了

data test(drop=i);
input d1-d3@;
array s{3} d1-d3;
do i=1 to 3;
if s(i)=. then d=i ;
end;
cards;
1      2       7  
2      .       4
3      4       .
;
run;
data a (drop=d);
set test;
if d=2 and d2=. then d2=(d1+d3)/2;
if d=3 and d3=. then d3=(d1+d2)/2;
proc print;
run;

只是一个抛砖引入的作用，希望有牛人来写出更好的程序

crackman 发表于 2010-3-6 19:21
total=d1+d2+d3;
计算的是非缺失变量的和
既然D2 D3都有缺失
就不能那样计算了

SAS has many statistic function you can use with a array or a variable list.

Here is an example.

data;
input d1-d3;
array s(*) d1-d3;
n=n(of s(*));
mean=mean(of s(*));
sum=sum( of s(*));
do i=1 to dim(s);
  if s(i)=. then s(i)=mean;
end;
drop i;
cards;
1      2       7  
2      3       .
3      .         4
;
run;
proc print;
run;

第一部分定位缺失值的位置，很值得学习。谢谢！

What if I want it the following way?

Thanks,

1       2       7
2       3     5.5
3       2.5     4

5# bobguy
功底确实很深厚
谢谢

To use the row mean:
data test;
input x1-x3;
array x{*} x1-x3;
mean = mean(of x1-x3);
do i = 1 to dim(x);
  if x[i]=. then x[i]=mean;
end;
drop mean i;
datalines;
1 2 7
2 3 .
3 . 4
;
proc print;run;

To use the column mean;
data test;
input x1-x3;
datalines;
1 2 7
2 3 .
3 . 4
;
proc means noprint;
output out=test2(drop=_type_ _freq_)
       mean(x1 x2 x3) = d1 d2 d3 ;
data final;
merge test test2;
array x{*} x1-x3;
array d{*} d1-d3;
array dd{*} dd1-dd3;
retain dd1 dd2 dd3;
do i = 1 to 3;
if d[i]~=. then dd[i]=d[i];
   else dd[i] =dd[i];
if x[i] = . then x[i]=dd[i];
end;
drop d1-d3 dd1-dd3 i;

proc print; run;