SAS宏在临床试验中应用－输出不含缺失值的数据集

shiyiming

[code:c0728]%macro cleanmis(data=data,  /*原始数据集*/
                              out=out,  /*输出不含缺失值的数据集*/
                              var=var  /*处理变量*/
                          );
data &out(drop=i flag) ;
  set &data(keep= &var) ;
  array _ch(*) _character_ ;
  array _nu(*) _numeric_ ;
  flag = 0 ;
  do i = 1 to dim (_ch) ; if _ch(i) = '' then flag = 1 ; end ;
  do i = 1 to dim (_nu) ; if _nu(i) = .  then flag = 1 ; end ;
  if flag = 1 then delete;
  run ;
%mend;

data aa;
input x y$;
datalines;
1  a1
.  a2
3   .
4  a4
;
run;

%cleanmis(data=aa, /*原始数据集*/
           out=bb,    /*输出不含缺失值的数据集*/
           var=x y   /*处理变量*/
         );[/code:c0728]