SAS中求列的和，一个简单例子的多个实现

options nodate nocenter  formdlim='8';

/* 这儿是原始数据，现在需要的是对summer1到summer4求和，也就是说要得到3，6，9，12  */

data wide;

   input name $ summer1-summer4;

   cards;

   a 1 2 3 4

   b 1 2 3 4

   c 1 2 3 4

;

/* 第一种办法，用矩阵来做，因为涉及到对同一个变量反复做相同的操作 */

data sum_array;

   set wide end=last;

   array summer{4} summer1-summer4;

   array asum{4};

   keep asum1-asum4;

   do i=1 to 4;

      asum{i}+summer{i};

   end;

   if last then output;

run;

proc print data=sum_array noobs;

run;

/* 第二个办法，用macro和sql混合使用 */

%MACRO sumver(maxindex=);

%DO n = 1 %TO &maxindex;

SUM(summer&n) as Sum&n

%IF &n NE &maxindex %THEN ,

;

%END;

%MEND sumver;

PROC SQL;

SELECT %sumver(maxindex=4)

FROM wide

;

QUIT;

/* 第三个办法，用macro来代替反复执行 */

%macro Test(Countt);

data sum_data;

   set wide end=lastobs;

%do i =1 %to &Countt;

   sum&i+summer&i;

%end;

   keep sum1-sum&Countt;

   if lastobs then output;

run;

%mend;

%Test(4);

proc print data=sum_data;

run;

/* 第四个办法，用一段macro来代替执行所有的相加项 */

%macro sumv(maxobs=);

   %do i=1 %to &maxobs;

     sum&i+summer&i ;

      %end;

%mend sumv;

option mlogic mprint symbolGEN;

data sum_data;

   set wide end=lastobs;

   %sumv(maxobs=4) ;

   keep sum1-sum4;

   if lastobs then output;

run;