[求助]：变量处理

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

各位高手：
我有一组数据，有七个不同的变量 （变量名不规则）。 我需要对变量作俩俩乘积。
希望编程序自动生成结果。类似：
i=1.. n
j=1.. n
newvar=var_i * var_j;
i<>j

希望高人指点。
多谢了。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：变量处理 自动生成 高人指点 VaR 编程序 程序

1# raymonica

1. 
   
2. data original;
   
3. input a b c d e f g;
   
4. cards;
   
5. 1 2 3 4 5 6 7
   
6. 2 3 4 5 6 7 8
   
7. ;
   
8. /*create a name product-name list*/
   
9. %macro nameMcr;
   
10. %let Names =a b c d e f g;
    
11. %global _name_;
    
12. %let i =1;  %let _name_=;
    
13. %do%while( &i <=7);
    
14.   %let j =1;
    
15.    %do%while( &j <=7);
    
16.      %if &j >&i %then %let _name_ =&_name_ %scan(&names, &i)_%scan(&names, &j);
    
17.      %let j =%eval(&j+1);
    
18.     %end;
    
19.     %let i =%eval(&i+1);
    
20. %end;
    
21. %mend nameMcr;
    
22. %nameMcr
    
23. ;
    
24. data product;
    
25. set original;
    
26. array vAry{7} a--g;
    
27. array pAry{21} &_name_;
    
28. n=0;
    
29. do i =1 to 7;
    
30.   do j =1 to 7;
    
31.    if j >i then
    
32.     do;
    
33.      n+1;
    
34.      pAry[n] =vAry[i] *vAry[j];
    
35.     end;
    
36.   end;
    
37.   end;
    
38. drop n i j;
    
39. run;
    
40. /*Be aware: any combination of 2 variable names has <32 characters;*/

复制代码

data a;
do i=1 to 7;
do j=1 to 7;
if i^=j then output;
end;
end;
run;
proc sql;
create table final as
select *,(i*j) as newvar from a where i<>j;
quit;

不好意思，做的是错的，别介意啊！

多谢牛人指点。回去好好调试。

Here is the simplest way do it.

HTH.

data t1;
  x1=1;x2=2;x3=3;x4=4;
run;

data t2;
  set t1;
  array x(*) x1-x4;
  array y( 6);
  do i= 1 to dim(x)-1;
     do j= i+1 to dim(x);
         n+1;
          y(n)=x(i)*x(j);
          end;
  end;
  drop i j n;
run;

proc print; run;

*************************************************
Obs    x1    x2    x3    x4    y1    y2    y3    y4    y5    y6

  1      1     2     3     4     2     3     4     6     8    12

# jingju11 写的不错的.
如果说有点可以改进的话,就是自动把dataset的变量读出来, 省掉外部输入.

恩，不错，我也是这样认为的

高人呀，深受启发。我要好好试一试。

我试验的最终版本是：
options mprint mlogic symbolgen  ;

proc sql;
select name into :vname separated by " "
from sashelp.vcolumn
where libname='xxxx
and memname='xxxx'
and varnum>2;
run;
quit;

%put &vname;


%macro namecreate;
%let onames=&vname;
%global _name_;
%let i=1;
%let _name_=;
%let newname=;
%do%while (&i<=7);
  %let j=1;
     %do%while (&j<=7);
       %if &j>&i %then
         %let _name_=&_name_ %scan(&onames,&i)_%scan(&onames,&j);               
   %let j=%eval(&j+1);
%end;
%let i=%eval(&i+1);
%end;
%mend namecreate ;
%namecreate
;



data xxxx ;
set xxxx ;
array orig{7} &vname;
array comb{21} &_name_;
n=0;
do i=1 to dim(orig)-1;
  do j=i+1 to dim(orig);
  n+1;
  comb[n]=orig[i]*orig[j];
  end;
  end;
  drop i j n;
  run;

看各位有没有更好的想法。