Pensionsberäkningar med hänsyn till dödlighet

Hur förändras nuvärdet om du tar hänsyn till dödlighet? Pensionsutbetalningarna är då inte längre garanterade utan beror på om mottagaren överlever. Ettårssannolikheterna för överlevnad px har förinspelästs, tillsammans med variablerna benefits, discount_factors, PV_65 och PV_20 från föregående övning.

Den här övningen är en del av kursen

Värdering av livförsäkringsprodukter i R

Visa kurs

Övningsinstruktioner

Lagra överlevnadssannolikheterna för en 65-åring upp till ålder 100 i variabeln kpx. Se till att kpx börjar med en 1.
Beräkna det förväntade nuvärdet (EPV) vid ålder 65 för pensionen med hänsyn till dödlighet. Tilldela resultatet till EPV_65 och jämför värdet med PV_65, som inte tar hänsyn till dödlighet.
Diskontera EPV vid ålder 65 till EPV vid ålder 20 genom att ta hänsyn till både räntan på 3 % och att (20) överlever till ålder 65. Jämför även här EPV_20 med PV_20.

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

# Survival probabilities of (65) up to age 100
kpx <- c(1, ___(px[(___):(___)]))

# EPV of pension at age 65
EPV_65 <- ___(___ * ___ * ___)
cbind(PV_65, EPV_65)

# EPV of pension at age 20
EPV_20 <- EPV_65 * (1.03 ^ - 45 * ___(px[(___):(___)]))
cbind(PV_20, EPV_20)

Redigera och kör kod