While循环，向函数添加其他术语

Question

我正在尝试创建一个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
}

Answer 1

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

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