impute.sas

缺失数据的利器

%macro impute(name= , dir=default, setup=old, mode= );

  %let msg = ;
  %let path = ;
  %setup;

  %if (%bquote(&msg) eq ) %then %do;
    %let datain = ;
    %let dataout = ;
    %let keys = datain dataout;
    %getkeys;
    %if (%bquote(&datain) eq ) %then %let msg = No Datain file.;
  %end;

  %if (%bquote(&msg) eq ) %then %do;
    %metadata(datain=&datain);
  %end;

  %if (%bquote(&msg) eq ) %then %do;
    %put Check setup.;
    %execute(prog=iveset);

    %if (%bquote(&msg) eq ) %then %do;
      %put Input data.;
      filename input "&path..inp";
      %include input;
      %put Execute Imputation.;
      %execute(prog=impute);
    %end;

    %if (%bquote(&msg) eq  ) %then %do;
      %if (%quote(&dataout) ne ) %then %putdata(name=&name, dir=&dir);
      %copylst;
    %end;

    %copylog;
  %end;

  %if (%bquote(&msg) ne ) %then %put %bquote(&msg);

%mend impute;