Een eenvoudige lijfrente

Waardering van levensverzekeringsproducten in R

Roel Verbelen, Ph.D.

Statistician, Finity Consulting

De lijfrente

$\qquad$ De EPV is $$_kE_x = 1 \cdot \ v(k) \cdot \ {}_kp_x \, . $$

Bij een vaste lijfrente is de uitkering van 1 euro op tijd $k$ gegarandeerd.

$\quad \,$ Contante waarde is $v(k)$.

i <- 0.03
discount_factor <- (1 + i) ^ - 5
1 * discount_factor

0.8626088

Bij een uitgestelde kapitaalverzekering is de uitkering van 1 euro op tijd $k$ niet gegarandeerd.

$\quad \,$ Verwachte contante waarde is $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

Waardering van levensverzekeringsproducten in R