向函数添加附加项的 While 循环答案

【问题标题】：While loop that adds additional terms to a function向函数添加附加项的 While 循环
【发布时间】：2019-09-14 15:10:57
【问题描述】：

我正在尝试创建一个 while 循环，为函数添加附加项。我的问题是，每当我尝试使用 while 循环添加到函数时，它不会将函数中的变量存储为数值，而是存储为槽。

这是我的代码：

x <- function(r){}
i <- 1
s <- c(0.01,0.02,0.03,0.04)
C <- 5
NV <- 100
while(i < length(s)){
  x <- function(r){
  x + C/(1+r)^i
  }
  i <- i+1
}

【问题讨论】：

【解决方案1】：

您没有更改循环内部的任何内容。您只需重新定义函数x。如果你想向x 添加元素，你不需要 R 中的循环。你可以使用

sum(C / (1+r)^(1:length(s))

【讨论】：