Výpočty penze s přihlédnutím k úmrtnosti

Jak se změní současná hodnota, pokud zohledníš úmrtnost? Důchodové platby pak nejsou zaručeny, ale závisí na přežití příjemce. Jednoroční pravděpodobnosti přežití px jsou předem načteny spolu s proměnnými benefits, discount_factors, PV_65 a PV_20 vytvořenými v předchozím cvičení.

Toto cvičení je součástí kurzu

Oceňování produktů životního pojištění v R

Zobrazit kurz

Pokyny k cvičení

Ulož pravděpodobnosti přežití 65letého pojištěnce do věku 100 let do proměnné kpx. Dbej na to, aby kpx začínalo hodnotou 1.
Vypočítej EPV ve věku 65 let pro penzi se zohledněním úmrtnosti. Výsledek ulož do EPV_65 a porovnej ho s PV_65, které úmrtnost nezohledňuje.
Diskontuj EPV ve věku 65 let na EPV ve věku 20 let s přihlédnutím jak k úrokové sazbě 3 %, tak k pravděpodobnosti přežití (20) do věku 65 let. Opět porovnej EPV_20 s PV_20.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

# 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)

Upravit a spustit kód