Terminowe ubezpieczenie na życie

Ethan zastanawia się, jak zmienia się EPV ubezpieczenia na życie, gdy ochrona ubezpieczeniowa jest ograniczona w czasie – tak jak pokazano na poniższym rysunku.

Na początku oblicza EPV ubezpieczenia na całe życie dla osoby 20-letniej przy stopie procentowej \(i = 2\%\), korzystając z wczytanej tablicy life_table dla kobiet w Belgii w 1999 roku.

Wychodząc od funkcji whole_life_insurance() utworzonej w poprzednim ćwiczeniu, pomóż Cynthii napisać funkcję dla terminowego ubezpieczenia na życie.

To ćwiczenie jest częścią kursu

Wycena produktów ubezpieczeń na życie w R

Zobacz kurs

Instrukcje do ćwiczenia

Zdefiniuj funkcję temporary_life_insurance(), która oblicza EPV dla terminowego ubezpieczenia na życie. Oprócz standardowych argumentów age, i oraz life_table, funkcja przyjmuje dodatkowy argument n określający liczbę lat, przez które obowiązuje ochrona ubezpieczeniowa.
Skorzystaj z nowo zdefiniowanej funkcji temporary_life_insurance(), aby sprawdzić, jak zmienia się EPV ubezpieczenia na życie osoby w wieku (20) lat przy stopie 2%, gdy ochrona jest ograniczona do 45 lat.

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

# EPV of a whole life insurance for (20) at interest rate 2% using life_table
whole_life_insurance(20, 0.02, life_table)

# Function to compute the EPV of a temporary life insurance
temporary_life_insurance <- function(age, n, i, life_table) {
  qx <- life_table$qx
  px <- 1 - qx
  kpx <- c(1, cumprod(px[(___):(___)]))
  kqx <- kpx * qx[(___):(___)]
  discount_factors <- (1 + i) ^ - (1:length(kqx))
  ___(___ * ___)
}

# EPV of a temporary life insurance for (20) over a period of 45 years at interest rate 2% using life_table
temporary_life_insurance(___, ___, ___, ___)

Edytuj i uruchom kod