如何解决循环计算R中“连续乘积”序列函数的和
我尝试为R中的以下公式计算值。
我具有每个对应的F_x,F_ {x + 1} ...的数据集和值。
但是,由于Q
和s
都有太多的值,因此我正在考虑编写一个循环循环。有点困惑。 Q
的循环似乎与s
的循环有冲突
但是,如果我按如下所示编写循环,似乎我需要手工计算100次Q才能获得所有答案。另外我的循环似乎是错误的...如何解决此问题?非常感谢
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)
}
解决方法
我不确定下面的代码是否达到您的目标
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
}
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。