求助程序解释

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

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 a=100  b=100 c=100  t2a=10 t2b=10 t2c=10   e=10;
     model y=a*exp(-x/t2a)+b*exp(-x/t2b)+c*exp(-x/t2c)+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;
proc print data=final ;
run;

求教程序解释。谢谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Parameter Transpose Estimates estimate paramete 求助 程序 解释

都没人解释下，不就是个宏么，我自己看吧

那么长，你应该贴出哪里看不明白的，叫别人解析，每个都要解析太麻烦了