小编Foj*_*sek的帖子

我想要一个函数来返回向量中所有值的乘积,比如sum使用乘法而不是加法.我预计这已经存在,但如果确实存在,我找不到它.这是我的解决方案:

product <- function(vec){
    out <- 1
    for(i in 1:length(vec)){
         out <- out*vec[i]
    }
    out
}

这表现我想要的方式.例如:

> product(1:3)
[1] 6

有没有更好的方法来实现这一点,无论是使用现有功能还是通过改进这个自定义功能？