在R中实现两个西格玛和

Question

有关如何在R上编写此公式的任何帮助（这是我尝试做的一个简单的版本）：

Answer 1

我们可以编写如下内容。不确定N是矢量的长度还是输入的长度：

V <- function(x, p){
  return(sum(x[seq_along(x)])*sum(p[1:min(35, length(p))]))
}

> V(1:10, 11:20)
[1] 8525