Životní pojistný plán pro slečnu Cathleen
Cynthia pomáhala slečně Cathleen během stáže v životní pojišťovně. Slečna Cathleen, které je nyní 48 let, hledá finanční ochranu pro případ úmrtí v době kolem svého odchodu do důchodu. Aby zajistila své dospívající děti, chce si pojistit plnění 40 000 EUR pro případ úmrtí ve věku mezi 55 a 75 lety, jak je znázorněno níže.
Pro ocenění tohoto dočasného životního pojištění použiješ belgickou ženskou životní tabulku z roku 1999, z níž jsou předem načteny jednoroční pravděpodobnosti přežití px a míry úmrtnosti qx. Předpokládaná úroková míra 5 % je dostupná jako i.
Toto cvičení je součástí kurzu
Oceňování produktů životního pojištění v R
Pokyny k cvičení
- Vypočítej odložené pravděpodobnosti úmrtí \(q_{48}, \: _{1|}q_{48}, \: \ldots, \: _{26|}q_{48}\) pro 48letou osobu až do věku 75 let jako součin víceletých pravděpodobností přežití a měr úmrtnosti.
- Definuj odpovídající diskontní faktory při úrokové míře
i. - Urči vektor
benefitsjako pojistná plnění při úmrtí v rámci tohoto dočasného životního pojištění. - Vypočítej očekávanou současnou hodnotu pojistného plánu.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
# Deferred mortality probabilites of (48)
kqx <- c(___, ___(px[(___):(___)])) * qx[(___):(___)]
# Discount factors
discount_factors <- (___) ^ - (1:length(kqx))
# Death benefits
benefits <- c(rep(___, ___), rep(___, length(kqx) - 7))
# EPV of the death benefits
EPV_death_benefits <- ___
EPV_death_benefits