如何在R中打印矢量产品

Question

所以这是我目前的代码：

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

但是，我想打印出vector [2,3,5]

的产品

但它不接受这些值。我只能输入（1：3）或（1：4）

我是R编程的新手，所以任何帮助都表示赞赏。我不想使用任何其他功能。

Answer 1

问题不在功能代码中，但可能与用户调用它的方式有关。我提出我的清洁版。但你真的应该使用prod。

 vec_prod <- function(x){
   out <- 1
   for(i in x){
     out <- out*i
   }
   out
 }
 vex_prod(c(4,5,6))