]/+ actualisation[1:(min(duree,120-age))] )+ return(C*c(prixsup,prixinf))}
我在这里指两个年金“价格”,具体取决于年金是在年末还是年初支付的...如果我们以不同的费率水平(5%,2%,0%和-2%)计算直到死亡的多个年龄的年金,我取负率
> plot(vage,vpn2,type="b",col="red")> lines(vage,vp0,type...="HOM",duree=150,taux=-.02)[1] 200778.3 201770.3
我们可以在下图上显示的内容(年龄,年龄为100,对应于以5%的比率获得的值)
> plot(vage,vpn2