【求助】弱问sas里面有没有函数可以求积

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

就像sum求和一样，想求分类乘积，不知道如何实现。

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：有没有 如何实现 不知道 Sum 函数 SAS

oh, this is simple problem ,you can process your self

proc sql;select (sum((x=0)))*exp(count(*)*avg(log(x))) as productX from dset(where=(x^=.));quit;

希望能正面回答别人的提问，别人不懂才问的，不管在你看来是否所谓的真简单。

LZ,下面一下思路，请参考——注意：由于ln(ab)=ln(a)+ln(b)，因此可将原数据取对数后再分类求和，然后再求出分类积，程序示意如下：

 data a;

 input x c @@;

 y=log(x);

cards;

2 1 3 1 4 1 5 2 6 2 7 2

;

proc means sum;

 class c;

 var y;

run;

运行结果如下：

                                             The SAS System           16:56 Tuesday, May 25, 2009  15

                                       The MEANS Procedure

                                      Analysis Variable : y

                                                 N
                                          c    Obs             Sum
                               -----------------------------------
                                          1      3       3.1780538

                                          2      3       5.3471075
                               -----------------------------------

然后，可以很容易地用 exp(3.1780538)=24, exp(5.3471075)=210 ,这就是 LZ 所需要的分类乘积结果。谢谢！

data dset;

dset;

input x c;

cards;

-1 1

-2 1

. 1

-2.5 2

0 2

;

;

-1 1

-2 1

. 1

-2.5 2

0 2

;

proc sql;

select (-1)**sum((x<0&^missing(x)))*(sum((x=0))=0)*exp(sum(^missing(x))*avg(log(abs(x)))) as productX

from dset group by c;

sql;

select (-1)**sum((x<0&^missing(x)))*(sum((x=0))=0)*exp(sum(^missing(x))*avg(log(abs(x)))) as productX

from dset group by c;

select (-1)**sum((x<0&^missing(x)))*(sum((x=0))=0)*exp(sum(^missing(x))*avg(log(abs(x)))) as productX

from dset group by c;

from dset group by c;

quit;

;

*just for fun;

*楼上的没有考虑０和负数 的情况;

6楼正解，偶学习了，这里似乎可以简化一下程序,让您见笑了：

data dset;
input x c;
cards;
-1   1
-2   1
2    1
.    1
-2.5 2
0    2
1    2
.    2
1    3
2    3
3    3
;
proc sql;
select c, (-1)**sum((x<0&^missing(x)))*(sum((x=0))=0)*exp(sum(^missing(x))*avg(log(abs(x)))) as productX
from dset group by c;
quit;

下面是运行的结果：

                                            The SAS System         08:58 Wednesday, May 26, 2009   7

                                              c  productX
                                       ------------------
                                              1         4
                                              2         0
                                              3         6