循环循环以计算R中“连续积”序列函数的总和

Question

我尝试在 R 中计算以下方程的值。

我有每个对应的 F_x、F_{x+1}...的数据集和值...

但是，由于Q 和s 的值太多，我正在考虑在循环中编写一个循环。有点困惑。 Q 的循环似乎与 s 的循环冲突

但是如果我如下编写循环，似乎我需要手动计算 Q 100 次才能得到所有答案。另外我的循环似乎是错误的......我该如何解决这个问题？非常感谢

Y <- function(x,s, Q){
  n <- length(s-x)-1
  Q <- c(1:100)

    for(s in seq(1:n)){

     Y[s] <- sum(s*Q[s]*cumprod(Fx[1:s])) 
    }
return(Y)
}

Answer 1

我不确定下面的代码是否达到您的目标

Y <- function(x,s) {
  Q <- 1:100
  S <- 1:(s-x)
  outer(Q,S,FUN = function(q,s) q * sum(c(1:s) * cumprod(Fx[1:s])))
}

---

for循环版

Y <- function(x,s) {
  nr <- 100
  nc <- s-x
  y <- matrix(nr*nc,nrow = nr)
  for (Q in 1:nr) {
    for (S in 1:nc) {
      y[Q,S] <- Q * sum(c(1:S) * cumprod(Fx[1:S]))
    }
  }
  y
}