用 R 评估人寿保险产品
Roel Verbelen, Ph.D.
Statistician, Finity Consulting







$\qquad$ EPV 为 $$_kE_x = 1 \cdot \ v(k) \cdot \ {}_kp_x \, . $$
$\quad \,$ 现值为 $v(k)$。
i <- 0.03
discount_factor <- (1 + i) ^ - 5
1 * discount_factor
0.8626088
$\quad \,$ 期望现值为 $v(k) \cdot {}_kp_x$。
qx <- life_table$qx; px <- 1 - qx
kpx <- prod(px[(65 + 1):(69 + 1)])
kpx
0.9144015
1 * discount_factor * kpx
0.7887708
用 R 评估人寿保险产品