Renta terminowa a dożywotnia

Na koniec pomóż Cynthii napisać funkcję dla terminowej renty życiowej płatnej z góry, w której płatności są ograniczone w czasie. Pierwsza płatność następuje w chwili \(0\), a ostatnia w chwili \(n-1\).

Zarówno life_table, jak i funkcja R life_annuity_due są nadal dostępne w twoim środowisku pracy.

To ćwiczenie jest częścią kursu

Wycena produktów ubezpieczeń na życie w R

Zobacz kurs

Instrukcje do ćwiczenia

Zdefiniuj funkcję temporary_life_annuity_due() na podstawie kodu funkcji life_annuity_due() tak, aby obliczała EPV dla terminowej renty życiowej płatnej z góry. Funkcja przyjmuje teraz dodatkowy argument n, który określa liczbę płatności. Zarówno kpx, jak i discount_factors powinny mieć łączną długość równą n.
Użyj funkcji temporary_life_annuity_due(), aby obliczyć EPV 10-letniej renty życiowej płatnej z góry dla osoby w wieku (20) przy stopie 2%, korzystając z tablicy trwania życia dla kobiet za rok 1999.

Interaktywne ćwiczenie praktyczne

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

# EPV of a whole life annuity due for (20) at interest rate 2% using life_table
life_annuity_due(20, 0.02, life_table)

# Function to compute the EPV of a temporary life annuity due for a given age, period of n years, interest rate i and life table
temporary_life_annuity_due <- function(age, n, i, life_table) {
  px <- 1 - life_table$qx
  kpx <- c(1, cumprod(px[(___):(___)]))
  discount_factors <- (1 + i) ^ - (0:(___))
  ___
}

# EPV of a temporary life annuity due for (20) over 10 years at interest rate 2% using life_table
temporary_life_annuity_due(___, ___, ___, ___)

Edytuj i uruchom kod