我希望编辑一个函数用于计算一串现金流的贴现值，函数体如下：
count_PV <- function(cashflow,timepoint,period,r){
   PV_count <- 0
   for(i in 1:period){
      PV_count=PV_count+cashflow[i]/exp(r*timepoint[i])
   }
}

如果我单独使用该函数中的循环节：
   PV_count <- 0
   for(i in 1:period){
      PV_count=PV_count+cashflow[i]/exp(r*timepoint[i])
   }

就可以得到正确的计算结果，但是使用函数输出值就是null。我不知道错在哪里，能麻烦各位吧友帮忙看看么？谢谢大家了！