取其中的变量循环

macro a;
%let comind=

mend;

%macro test;
   %let x1=a;
   %let x2=b;
   %let x3=c;
   %let x4=d;
   %let x5=e;
   %let x6=f;
   %let x7=g;
   %let k=5;
   %let ncomb=%sysfunc(comb(7,&k));
   %do j=1 %to &ncomb+1;
      %syscall allcomb(j, k, x1, x2, x3, x4, x5, x6, x7);
                  %let ncomind&j=&x1, &x2, &x3, &x4, &x5;
      %put  &&ncomind&j;
          data zonghe&j;
                  set yourdata;
                commark=sum(&&ncomind&j);
          run;
   %end;
%mend;
     
%test

1. %let combind = a, b, c, d, e, f, g;
   
2. data _null_;
   
3.     combind = compress("&combind", ",");
   
4.       n = 7;
   
5.       length combind5 $20;
   
6.       do i = 1 to 5;
   
7.       nth = ceil(ranuni(123)*n);
   
8.       combind5 = catx(', ', combind5, scan(combind, nth));
   
9.       combind = compress(combind, scan(combind, nth));
   
10.       n = n - 1;
    
11.     end;
    
12.   call symput('ncombind', combind5);
    
13. run;
    
14. %put &ncombind;

复制代码

Take a look ,

1) CALL RANPERK(seed, k, variable-1 <, variable–2, ...>);
2) CALL RANPERM(seed, variable-1 <, variable–2, ...>);

yongyitian 发表于 2014-11-29 11:12

结果   
5719   %put &ncombind;
f, b, a, g, d



我是想把7中抽取5个全部的结果都输出来

bobguy 发表于 2014-11-29 13:01
Take a look ,

1) CALL RANPERK(seed, k, variable-1 );

高手   能否具体一下   

小鳄鱼a 发表于 2014-11-29 19:25
结果   
5719   %put &ncombind;
f, b, a, g, d

7中抽取5的全部结果与任取5个完全不同, 但可能简单一点.

you may use allcomb() function;
http://support.sas.com/documenta ... .htm#a003112305.htm

支持支持，加油加油加油

牛人啊！

好厉害啊，都看不懂啊？