求sas 累加 累乘的 宏！！！

木有钱。。求求sas  累加 累乘的  宏！！！

data aa;
input var1 var2 var3;
datalines;
1 2 3
2 3 4
3 4 5
4 5 6
5 6 7
; run;

%macro sum_prod(In=in, var=var, Out=out);
data &Out;
   if _n_ = 1 then prod_&var=1;
    set &In;
        retain prod_&var;
        prod_&var=prod_&var*&var;
        sum_&var + &var;
run;
%mend;
%sum_prod(In=aa, var=var1, Out=aa1);
proc print data=aa1; title 'dataset aa1'; run; title;

%macro example;
data _NULL_;
set  A;
call symputx ('_n', _n_);
run;
DATA dataB;
SET A;
%do i =1 %to &_n;
%IF  &i= 1 %THEN %DO;
sum=K;
%END;
%ELSE %do;
sum=sum+k;
retain sum;
%end;
%end;
RUN;
%mend;
累乘将sum=sum+k改为sum=sum*k;

不用宏也可以累加累乘啊

这个宏怎么调用呢？我是菜鸟一枚

累加可以用Proc SQL中的SUM来做
累乘可以先对数化，再求累加，最后用个exp就好了

playmore 发表于 2013-2-1 14:14
累加可以用Proc SQL中的SUM来做
累乘可以先对数化，再求累加，最后用个exp就好了

对，累乘这是个好方法，我好像在那本书上见过

playmore 发表于 2013-2-1 14:14
累加可以用Proc SQL中的SUM来做
累乘可以先对数化，再求累加，最后用个exp就好了

Yes. I remember there is an example in Crackman's website. Just be careful of negative number and 0.

data _a_;
set b (keep=r);
sum+r;
run;

data _a_;
set b (keep=r);
sum+r;
run;