N个变量中任两个变量之间的线性回归的程序，求简单语句

shiyiming

[code:10da7mxr]data ex;
input a b c d e f g h i;
cards;
1        2        3        4        5        6        7        8        9
4        5        5        8        8        7        7        7        9
7        8        7        12        11        8        7        6        9
10        11        9        16        14        9        7        5        9
13        14        11        20        17        10        7        4        9
16        17        13        24        20        11        7        3        9
19        20        15        28        23        12        7        2        9
22        23        17        32        26        13        7        1        9
25        26        19        36        29        14        7        0        9
28        29        21        40        32        15        7        -1        9
31        32        23        44        35        16        7        -2        9
34        35        25        48        38        17        7        -3        9
37        38        27        52        41        18        7        -4        9
40        41        29        56        44        19        7        -5        9
;
proc reg;
model a=b;
run;
proc reg;
model a=c;
run;
.
.
.[/code:10da7mxr]

如上所示，求每两个变量值之间的线性回归得到的 Adj R-Sq 值。莫非需要求助万能的MACRO吗（需要8+7+6+5+4+3+2+1次循环）？

shiyiming

[code:3o83ycu7]
%let Vs=a b c d e f g h i;
%macro LoopMcr;
%do i=1 %to 8;
  %let y=%scan(&Vs,&i);
  %do j=%evaL(&i+1) %to 9;
   %let x=%scan(&Vs,&j);
   proc reg; model &y=&x;  run;
  %end;
%end;
%mend LoopMcr;
%LoopMcr
;
[/code:3o83ycu7]