在r中实现两个sigma和

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

---

我们可以写以下内容。不确定

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

V（1:10，11:20）
[1] 8525

欢迎来到SO。请提供一个最小的可复制示例，以便人们可以尝试修改您所做的：