等额年金

等额年金

年金的现值

repayment = function(i,n){
    v=1/(1+i)
    d=i*v
    R=(1-v^n)/d
    print(paste0('期初付定期年金：',R))
    }--R

repayment2 = function(i,n){
    v=1/(1+i)
    d=i*v
    R=(1-v^n)/i
    print(paste0('期末付定期年金：',R))
    }    

原文地址：https://www.cnblogs.com/zonghanli/p/12530673.html