高手帮忙看看该sas宏哪儿又错误-经管之家官网！

免费学术公开课,扫码加入

老师们帮忙看看该sas 宏错在哪里，运行总是出错！
谢谢！
%macro RR(delta,n1,n2,distr1,distr2,essai,report=1);

%global pow;
data -null-;
call symput("seed ",date());
run;
Data depart;
do numessai=1 to &essai;
do pat=1 to %eval(&n1+&n2);
if pat<=&n1 then do;
Distr=rantbl(&seed,&distr1);
group=1;
end ;
if pat> %eval(&n1) and pat <= %eval (&n1+&n2)
then do;
Distr=rantbl(&seed,&distr2);
group=2;
end;
output;
end;
end;
Run;

proc freq data=depart(where=(group in (1,2))) noprint;
by numessai;
tables group * distr /cmh2 scores=ridit;
output out=TRT-AB N LGRRC1;
run;

Data power1;
set TRT-AB;
if l-lgrrc1^=.;
power=l-lgrrc1>=&delta;
scenario="TRT-A/TRT-B";
Run;
proc univariate data=power1 noprint;
by scenario;
var power;
output out =power2 n=n sum=rep;
run;

Data power3;
length distr1 distr2 $ 30 scenario $ 20;
merge power2;
by scenario;
lcl=100-100*Betainv(0.975,n-rep+1,rep)+0;
ucl=100*Betainv(0.975,rep+1,n-rep)+0;
lC="["|| compress (put(lcl,best4.))||"%;"|| compress (put(ucl,best4.))||"%"||"]";
distr1=compress(symget("distr1")*100||"%");
distr2=compress(symget("distr2")*100||"%");
n1=symget("n1");
n2=symget("n2");
delta=symget("delta");
simul=symget("essai");
power=100*rep/n;
call symput('pow',put(power,best4.1));
Run;

%if %eval(&report)=1 %then %do;

Title2
Proc report data= power3 headline headskip nowindows split ="@" ls=120;
column("--" scenario simul delta power lc
("Expected sample size" "--" n1 n2)
("Expected rates" "--" distr1 distr2));
define scenario /order format=$18. left width=18 "Scenario";
define simul/display format=$5.center width=12 "N? of @ simulations";
define delta /display format=$5.center width=6"Delta";
define power/display format=4.1 center width=6"Power";
define lC/display format=$12.center width=12"95% cl of @ Power";
define n1/display format=$10.center width=12 "TRT-A";
define n2/display format=$10.center width=12 "TRT-B";
define distr1/display format=$12.center width=12 "TRT-A";
define distr2/display format=$12.center width=12 "TRT-B";
compute after;
line @31 108*"-";
endcomp;
fotnote "seed=&seed";
%end;
Run;
%mend RR;

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP