Temporară vs. pe viață

În final, o poți ajuta pe Cynthia să scrie o funcție pentru o rentă viageră anticipată temporară, în care plățile sunt limitate în timp? Prima plată are loc la momentul \(0\), iar ultima la momentul \(n-1\).

Atât life_table, cât și funcția R life_annuity_due sunt disponibile în continuare în spațiul tău de lucru.

Acest exercițiu face parte din cursul

Evaluarea produselor de asigurare de viață în R

Vezi cursul

Instrucțiuni pentru exercițiu

Definește funcția temporary_life_annuity_due() pornind de la codul funcției life_annuity_due(), astfel încât VPA să fie calculat pentru o rentă viageră anticipată temporară. Funcția are acum un argument suplimentar n, care indică numărul de plăți. Atât kpx, cât și discount_factors trebuie să aibă o lungime totală de n.
Folosește temporary_life_annuity_due() pentru a calcula VPA al unei rente viagere anticipate pe 10 ani pentru (20), la o rată de 2%, utilizând tabela de mortalitate periodică din 1999 pentru femei.

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

# 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(___, ___, ___, ___)

Editează și rulează codul