Avaliação de Produtos de Seguro de Vida em R
Roel Verbelen, Ph.D.
Statistician, Finity Consulting







$\qquad$ O VPE é $$_kE_x = 1 \cdot \ v(k) \cdot \ {}_kp_x \, . $$
$\quad \,$ O VP é $v(k)$.
i <- 0.03
discount_factor <- (1 + i) ^ - 5
1 * discount_factor
0.8626088
$\quad \,$ O VP esperado é $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
Avaliação de Produtos de Seguro de Vida em R