方法一:(利用数组求缺失值)
data quan(keep= k);
set quan.cydc;
array x _numeric_;
do i=1 to dim(x);
if x(i)=. then j+1;
end;
if _n_>1 then k=dif1(j);
run;
proc print data=quan;
run;
方法二:(转置方法用过程步求缺失值)
proc transpose data=quan.BAIPU out=quan;
var X1-X10;
run;
proc means data=quan nmiss;
var COL1-COL10;
output out=quan1nmiss=miss1;
run;
方法三:(转置后用sql求缺失值)
proc transpose data=quan.BAIPU out=quan;
var X1-X10;
run;
proc sql;
select nmiss(col1)as miss1,nmiss(col2)asmiss2
from quan;
quit;
这些都是比较简单的程序,希望大牛们跟帖高级程序。