求助：需要一个宏来自动生成所有变量x组合，之后执行相应回归程序

我有一个数据文件，包括一个y和若干个x，比如下面的例子只有4个x（实际问题包含10个变量）.

data test;
input y income age hight;
datalines;
1 2 3 4
2 3 5 2
3 1 8 4
4 7 1 5
8 6 2 1
9 4 0 9
;
run;

我想将y回归这些x变量，并且运行所有组合，比如：

y = income ;
y = age;
y = hight;
y = income age;
y = income hight;
y = age hight;
y = income age hight;

如果检验y = income age hight，使用PROC REG（实际问题使用的并非PROC REG)，可以运行如下程序：

proc reg data=test;
model y = income age hight;
run;quit;

如果检验其他某种组合，使用如上回归程序，仅需改变相应的行即可。如果变量x有多少种组合，便需运行如上程序相应次数。

现在，我需要一个宏来自动生成所有变量x组合，之后执行相应回归程序。请各位大侠在我的这个程序的基础之上帮忙编写这个宏。非常感谢。

如果我的问题没有完全描述清楚，那么尽情按照您的理解提供相应答案。只要提供的答案与我的问题相关，鄙人皆将感激不尽。

编了很长一段程序完成了任意多个变量进行全部组合
然后用宏调用这些不同的组合启动回归

具体见附件

用了一个很麻烦的方法搞定了

Here are two macros supplied by SAS institute. One does combination and one does permutation. You may modify a little bit to achieve your needs. Left it as your homework.  

%macro permute(r) / parmbuff;      /* the parmbuff option assigns */
      %let i=2;               /* the invocation parameter list to the */
      %let things=;                       /* macro variable &syspbuff */
      %do %while (%Qscan(&syspbuff,&i,%STR(,%))) ne );  /* scan the syspbuff */
         %let p&i="%Qscan(&syspbuff,&i,%STR(,%)))";  /* to determine r */
        %if &i=2 %then %let things=&&p&i;     /* and count the number */
        %else %let things=&things,&&p&i;            /* of elements, n */
        %let i=%eval(&i+1);
      %end;
      %let n=%eval(&i-2);
      data permute;
         drop i j copy;
         array check (*) $ 10 r1-r&r;          /* create a total of r */
          %do m=1 %to &r;                   /* variables  for looping */
            do r&m = &things;
          %end;
          copy=0;
            do i=2 to &r;                 /* look for duplicate items */
              do j=1 to i-1;              /* and keep the unique ones */
                if check(j)=check(i) then copy+1;
              end;
            end;
          if copy = 0 then output;        /* writes to a SAS data set */
          if copy = 0 then put r1-r&r;        /* writes to the log    */
          %do m=1 %to &r;
            end;                               /* end the r DO LOOPS */
          %end;
        run;
       proc print uniform data=permute;
            title "permutations of &n items taken &r at a time ";
            run;
     %mend permute;

%permute(1,Chip,Pete,Mike,William)
%permute(2,Chip,Pete,Mike,William)
%permute(3,Chip,Pete,Mike,William)
%permute(4,Chip,Pete,Mike,William)

%macro combo(r)/parmbuff;

      %let i=2;
      %let things=;
      %do %while (%Qscan(&syspbuff,&i,%STR(,%))) ne );
        %let p&i="%Qscan(&syspbuff,&i,%STR(,%)))";
        %if &i=2 %then %let things=&&p&i;
        %else %let things=&things,&&p&i;
        %let i=%eval(&i+1);
      %end;
      %let n=%eval(&i-2);
       data combo;
            keep v1-v&r;
            array word $8  w1-w&n (&things);
            array rr (*) r1-r&r;
            array v $8  v1-v&r;
           %do i=1 %to &r;                    /* create the DO LOOPs */
             %if &i=1 %then %do;
               do r&i=1 to &n-(&r-&i);
               %end;
             %else %do;
               do r&i=r%eval(&i-1)+1 to &n-(&r-&i);
               %end;
             %end;
               do k=1 to &r;              /* select subscripted items */
               v(k)=word (rr(k));               /* for a SAS data set */
               put v(k)      '  ' @;                       /* for log */
               end;
               put;                                  /* writes to log */
               output;                    /* writes to a SAS data set */
           %do i=1 %to &r;
             end;                     /* create ENDs for the DO LOOPs */
             %end;
            put;
            run;
         proc print uniform data=combo;
            title "combinations of &n items taken &r at a time ";
            run;
       %mend combo;

%combo(1,Chip,Pete,Mike,William)
%combo(2,Chip,Pete,Mike,William)
%combo(3,Chip,Pete,Mike,William)
%combo(4,Chip,Pete,Mike,William)