请教一个sas macro的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

下面这组data，打算对列求和。 用data step可以如下做，现在打算把
   sum1+summer1;
   sum2+summer2;
   sum3+summer3;
   sum4+summer4;
换成用macro来改写，应该怎么写？  折腾了好久都没弄出来，求教。
我试着用array可以做，macro总是说有问题。谁能帮我写一下code？ 谢谢

data wide;
   input name $ summer1-summer4;
   cards;
   a 1 2 3 4
   b 1 2 3 4
   c 1 2 3 4
;

data sum_data;
   set wide end=lastobs;
   sum1+summer1;
   sum2+summer2;
   sum3+summer3;
   sum4+summer4;
   keep sum1-sum4;
   if lastobs then output;
run;

proc print data=sum_data;
run;

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：Macro acr CRO Mac Data step

1. %do i=1 %to 4 %by 1;sum&i.+summer&i;%end;

复制代码

替换你的
sum1+summer1;
   sum2+summer2;
   sum3+summer3;
   sum4+summer4;

谢谢  确实是的

没必要用宏，数组即可：

1. data wide;
   
2.         input name $ summer1-summer4;
   
3. cards;
   
4. a 1 2 3 4
   
5. b 1 2 3 4
   
6. c 1 2 3 4
   
7. ;
   
8. 
   
9. data want;
   
10.         set wide end=eof;
    
11.         array sum[4];
    
12.         array summer[*] summer:;
    
13.         do i=1 to dim(summer);
    
14.                 sum[i]+summer[i];
    
15.         end;
    
16.         if eof;
    
17.         drop i;
    
18. run;

复制代码

这种算法，用 proc means ，我觉得是最合适的：

1. data wide;
   
2.         input name $ summer1-summer4;
   
3. cards;
   
4. a 1 2 3 4
   
5. b 1 2 3 4
   
6. c 1 2 3 4
   
7. ;
   
8. 
   
9. ods listing close;
   
10. proc means data=wide nway;
    
11.         var summer:;
    
12.         id summer:;/*可以不要这个语句*/
    
13.         output out=want(drop=_type_ _freq_) sum=/autoname;
    
14. run;
    
15. ods listing;

复制代码