如何退出SAS宏循环

现在经行宏循环，如果具备某个条件就退出这个宏循环，应该使用什么样的语句经行控制实现这个功能。请高手给予解决。不胜感激。

有没有尝试写个IF条件语句？

好多的钱哦

楼主确实很富有啊

写过好像不行，这个不是普通的而是在宏循环中，请不要随意灌水发帖。

%goto语句直接跳出。

不过我没用过它。
教科书都说goto不好嘛。
需要中途退出循环的情况，我一般用%do %while或%do %until，而不用%do... %to...。

能看看循环体或者是楼主的大致想法吗

1. data a;
   
2. do i=0 to 9 by 1;
   
3. do x=i+0.995 to i+1.005 by 0.001;
   
4. output;
   
5. end;
   
6. end;
   
7. drop i;
   
8. run;
   
9. 
   
10. %MACRO TST(min_n,max_n,max_range);
    
11. %let cls=&min_n;
    
12. %let rc=1;
    
13. %do %while (%eval(&rc));
    
14. proc fastclus data=a MAXCLUSTERS=&cls out=b_&cls;run;quit;
    
15. proc sql;
    
16. create table c_&cls as
    
17. select
    
18. cluster
    
19. ,max(x)-min(x) as range
    
20. from b_&cls
    
21. group by cluster
    
22. ;
    
23. quit;
    
24. proc sql;
    
25. select max(range) into:max_range_now from c_&cls;
    
26. quit;
    
27. %put NOW MAX_RANGE IS &max_range_now N_CLS IS &cls;
    
28. %if &max_range_now<=&max_range %then %do;
    
29. %let rc=0;
    
30. %end;
    
31. %else %do;
    
32. %let cls=%eval(&cls+1);
    
33. %if &cls>&max_n %then %let rc=0;
    
34. %end;
    
35. %end;
    
36. %MEND TST;
    
37. %TST(1,150,0.01);

复制代码

我理解1维聚类的终止条件为所有CLUSTER的极差的最大值小于给定值，如果真是需要最小值的话，修改那个宏赋值语句max为min就可以了,不是统计出生，聚类也是半路出家，呵呵
三个参数依次为起始CLUSTER数，实验最大CLUSTER数，那个给定值。宏很粗糙，没做太多判别，稍微测试了下，可以用，希望对你有帮助。

祝新年快乐

Use %return; statement.

Here is the definition for %return

The %RETURN macro causes normal termination of the currently executing macro.



%macro test(dummy,test=out);
   %do i = 1 %to 5;
       %put >>>&i<<<;
       %if %upcase(&test)=OUT %then %return;
    %end;

%mend test;

%test(dummy,test=stay)
%test(dummy,test=out)

9楼的同志的程序是不是应该可以理解为退出%do，等价地退出宏。我仿照这个理解，编写如下程序：
%macro ml(n,m,zb);
data a;
do i=1 to &n;
x=uniform(0);
fi=arcos(-1);
y=sin(2*fi*x);
output;
keep y x fi i;
end;
%do j=2 %to &m;
proc fastclus data=a out=Clust&j maxclusters=&j noprint;
var x;
proc sort out=flei&j;by cluster;
proc means noprint data=flei&j;
var x; by cluster;
output out=menx&j(keep=rx) range=rx;
proc means data=menx&j noprint;
var rx;
output out=big&j max=zuizhi;
data pb&j;
set  big&j ;
%if zuizhi le &zb %then %return;
%end;
%%mend ml(n,m,zb);
%ml(200,15,0.4);run;
但提交出现问题，问题就在%if 这里，不知高手是否给予修正呢？
谢谢。
上面程序是确定一个最好的分类数，使得各个类内的变量的极差最大值小于事先给定的值，此时退出循环，得到最终的分类结果。