Penzijní plán pro paní Cathleen

Jako závěrečný úkol svého letního stáže dostala Cynthia za úkol provést výpočty pro paní Cathleen. Paní Cathleen je učitelka ve věku 40 let, která plánuje odchod do důchodu. Chce si koupit anuitu, která jí bude každoročně vyplácet 18 000 EUR doživotně, počínaje věkem 65 let. V případě úmrtí před dosažením 65 let se nic nevyplácí. Níže zobrazený graf znázorňuje penzijní plán paní Cathleen.

Jednoleté pravděpodobnosti přežití px jsou opět předem načteny.

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

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

Zobrazit kurz

Pokyny k cvičení

Definuj kpx pro ženu ve věku 40 let.
Vytvoř discount_factors, které diskontují platby k časovému okamžiku nula (věk 40 let) až do času length(kpx) - 1 při sazbě 3 %.
Přiřaď penzijní platby do benefits. Ujisti se, že tento vektor má stejnou délku jako kpx.
Vypočítej single_premium jako součet prvků po složkách z součinu benefits, discount_factors a kpx. Výsledek vypiš.

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 (40)
kpx <- c(___, ___(px[(___):___])) 

# Discount factors (to age 40)
discount_factors <- (1 + ___) ^ -(0:(___))

# Pension benefits
benefits <- c(rep(___, ___), rep(___, length(kpx) - 25))

# The single premium
single_premium <- ___
single_premium

Upravit a spustit kód