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
}