急请教为何sas程序运行后无结果输出，这段代码有什么问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

%macro kf(m);%do j=1 %to &m;data a;x0=&j-1;do i=1 to 100;x1=mod(40692*x0,2147483399);x0=x1;x=x1/2147483399;output;end;proc means noprint;var x;output out=b min=min max=xma range=xr;run;data c;set b;do i =1 to 100;output;end;data d;merge a c;data e;set d;if x ge min and x lt min+xr/5 then n1+1;if x ge min+xr/5 and x lt min+2*xr/5 then n2+1;if x ge min+2*xr/5 and x lt min+3*xr/5 then n3+1;if x ge min+3*xr/5 and x lt min+4*xr/5 then n4+1;if x ge min+4*xr/5 and x lt min+5*xr/5 then n5+1;proc means data=e noprint;var n1-n5;output out=f max=01-05;data g;length pvalue$ 12;set f;chi=sum((01-20)**2/20,(05-20)**2/20,(02-20)**2/20,(03-20)**2/20,(04-20)**2/20);p=1-probchi(chi,4);if p le .001 then pvalue='p<0.001';if p gt .001 and p le 0.01 then pvalue='0.001<p<0.01';if p gt 0.01 and p le 0.05 then pvalue='0.01<p<0.05';if p gt 0.05 and p le 0.1 then pvalue='0.05<p<0.1';if p gt 0.1 and p le .5 then pvalue='0.1<p<0.5';if p gt 0.5  then pvalue='0.5>p>1';proc append base=h force;%end;proc freq;tables p

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：sas程序 结果输出 output pvalue length

后面是 tables pvalue;run;
%mend kf(m);
%kf(100);
run;