Plan ubezpieczenia na życie dla pani Cathleen
Cynthia pomagała pani Cathleen podczas swojego stażu w towarzystwie ubezpieczeń na życie. Teraz pani Cathleen, która ma 48 lat, szuka ochrony finansowej na wypadek śmierci w okolicach przejścia na emeryturę. Aby zabezpieczyć swoje dorastające dzieci, chce ubezpieczyć świadczenie w wysokości 40 000 EUR na wypadek śmierci między 55. a 75. rokiem życia, co pokazano poniżej.
Do wyceny tego terminowego planu ubezpieczenia na życie ponownie skorzystasz z belgijskiej tablicy trwania życia kobiet z 1999 roku. Jednoroczne prawdopodobieństwa przeżycia px oraz współczynniki umieralności qx są już wczytane. Założona stopa procentowa wynosi 5% i jest dostępna jako i.
To ćwiczenie jest częścią kursu
Wycena produktów ubezpieczeń na życie w R
Instrukcje do ćwiczenia
- Oblicz odroczone prawdopodobieństwa zgonu \(q_{48}, \: _{1|}q_{48}, \: \ldots, \: _{26|}q_{48}\) dla osoby w wieku 48 lat do ukończenia 75 lat jako iloczyn wieloletnich prawdopodobieństw przeżycia i współczynników umieralności.
- Wyznacz odpowiednie czynniki dyskontujące dla stopy
i. - Zdefiniuj wektor
benefitsjako świadczenia z tytułu śmierci w ramach tego terminowego ubezpieczenia na życie. - Oblicz oczekiwaną wartość bieżącą planu.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
# 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