实验3.1 在实验2.4的基础上，计算各年末的均衡净保费责任准备金. （使用过去法和将来法都可以）；并且使用完全初年定期修正法，计算修正后的各年净保费责任准备金.

基于R的修正责任准备金的计算实验

实验3.2 计算在第10年按年均衡保费缴费的60岁保单持有人的终身人寿保险的准备金.

首先，我们计算年度保险费，接着即可计算准备金

>P <-Axn(soa08Act,60)/axn(soa08Act,60)

>V <-Axn(soa08Act,60+10)-P*axn(soa08Act,60+10)

> V

[1]0.2311368

实验3.3计算60岁的30年期人寿保险单的准备金，保费30年每年初缴纳，求保单持有人在第10年末的责任准备金？

首先计算每年的均衡净保费将是

>P <- Axn(soa08Act,60,30)/axn(soa08Act,60,30)

>V <-Axn(soa08Act,60+10,30-10)-P*axn(soa08Act,60+10,30-10)

> V

[1]0.209061

如果我们想要具体的描述准备金随着时间的推移的演变过程，可以使用下面的代码

>V <-function(t) Axn(soa08Act,60+t,30-t)-P*axn(soa08Act,60+t,30-t)

>VecT<-seq(0,30)

>plot(VecT,Vectorize(V)(VecT),type="b")

实验3.4 为60岁的投保人计算t=10的20年两全保险的责任准备金。

#Endowmentinsurance

> #full valuepremium

>U=AExn(soa08Act, 60,20)

> #benefityearly premium

> P <-U/axn(soa08Act, 60,20)

> #reserve

> V <-AExn(soa08Act, 60+10,20-10)-P*axn(soa08Act, 60+10,20-10)

> V

[1]0.355253