请教在宏里如何结束当前循环，进入下一个循环

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

要判断生成的数据集是否满足正态性，如果不满足正态，重新进入下一个循环：

%macro produce(seed00,miu,sigma2);

前面是种子数据集的过程；

%do nn=1 %to 10;

data data&nn;
set seed&nn;
retain seed;
do j=1 to 30;
x=&miu+normal(seed)*sqrt(&sigma2);
group=1;
output;end;
keep x group;
ods output TestsForNormality=Test&nn(where=(Test="Shapiro-Wilk"));
proc univariate data=data&nn normal;
var x;
run;

data datapb&nn;
set Test&nn;
keep pvalue;
if pvalue<0.05 then leave;
run;

其他过程；

%end；
%mend;

请教我现在用if pvalue<0.05 then leave;都没办法跳出当前的循环，应该怎么样才能使它不满足正态性的话就进入下一循环重新产生新数据集呢？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Univariate normality Produce shapiro Variate 如何

宏就是进行程序控制的，你可以这样做，在data步将pvalue赋给宏变量
call symput("p",pvalue);
然后你要控制下面的程序，如果p<0.05就进行下面的程序就行了，%if &p<0.05 %then %do; ........ %end;
                                                                                          

Imasasor 发表于 2012-11-18 15:34
宏就是进行程序控制的，你可以这样做，在data步将pvalue赋给宏变量
call symput("p",pvalue);
然后你要控 ...

谢谢，不过我里面有几个样本，所以合并的样本集需要对每一个样本都做正态性检验，这样的话不止一个p，symput好像只能保留最后一个p？

Here is a prototype to exit a loop in a macro.

%macro leaveloop(n);
   %let L=0;
   %let CHKPTV=0.8;
   %let I=0;
   %do  %until(L=1);
      %let I=%eval(&i+1);
      data _null_;
             if ( ranuni(0)- &CHKPTV)>0 or &i-&n=0 then call symputx('L', 1);
          run;
          %put >>>>&i &L &n<<<<;
          %if "&L"="1" %then %goto exit;
        %end;

       
        %exit:

        %mend;

        %leaveloop(5);

不错谢谢

受到Imasasor的启发，后来用了 call symput来解决了。谢谢大家！


count=0;

data datapb&nn;
set Test_one&nn test_two&nn;
IF PVALUE>0.05 then count+1;
call symput("count",count);
run;

data data&nn;
if &count>=2 then set dataone&nn datatwo&nn;
run;