Цикл 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))