Реализация двух сигма-сумм в г

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