提取某个文件夹下.fit文件，然后批量拟合，并提取拟合后的参数到一个数据集中。

效率很高。

 

filename f_list pipe "dir D:\three\dat /b";
data mylist;
infile f_list;
input file :$14.;
run;

data mylist;
  set mylist;
where file ? ‘fit’;
call symput(‘n’,_n_);
put file _n_;
run;

%macro getn;
   data _null_;
      set mylist;
   %do i=1 %to &n.;
          if _n_=&i. then call symput("fn&i.",file);
 %end;
%mend;

%getn;

%macro inverse;
    
  %do i=1 %to &n.;
      data ex;
       infile "D:\three\dat\%CMPRES(&&fn&i.)" firstobs=2 ;
    input x y;
    run;

    ods listing close;
    ods output ParameterEstimates = paras ;
     proc nlin data=ex ;
     parms a1=100  a2=100 a3=100  ta1=10 ta2=10 ta3=10   e=10;
     model y=a1*exp(-x/ta1)+a2*exp(-x/ta2)+a3*exp(-x/ta3)+e;
    run;
    ods listing;

          data inver (keep= name parameter estimate);
               set paras;
      name=scan("&&fn&i.",1);
      run;
                      
    proc append base=inversx data=inver ;                                           
    run;
       %end;
%mend;

%inverse

proc sort data=inversx;
by  name;
run;
 proc transpose data=inversx out=final (drop=_name_);
  var  estimate ;
  id parameter;
  by name;
run;