O funcție pentru calculul prețului unei anuități de viață

Supervizorul stagiului de practică al Cynthiei nu are prea multă experiență cu R. El îi cere să scrie o funcție R care calculează EPV-ul unei anuități de viață (pe întreaga durată de viață) datorată pentru \((x)\), la o rată a dobânzii constantă \(i\) și o tabelă de mortalitate dată.

Deoarece beneficiul este constant la 1 EUR, nu este necesar să fie luat în calcul în mod explicit.

Acest exercițiu face parte din cursul

Evaluarea produselor de asigurare de viață în R

Vezi cursul

Instrucțiuni pentru exercițiu

Scrie o funcție life_annuity_due() care calculează EPV-ul unei anuități de viață datorată (pe întreaga durată de viață) pentru argumentele de intrare age, rata dobânzii i și life_table.
Aplică life_annuity_due() pentru a calcula EPV-ul unei anuități de viață datorate pentru (20) la o rată de 2%. Folosește tabela de mortalitate periodică belgiană din 1999 pentru femei, preîncărcată ca life_table.
Observă cum se modifică EPV-ul dacă rata dobânzii crește la 5% (păstrând vârsta la 20 de ani). Dar dacă vârsta se schimbă la 65 de ani (păstrând rata dobânzii la 2%)?

Exercițiu interactiv practic

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

# Function to compute the EPV of a whole life annuity due for a given age, interest rate i and life table
life_annuity_due <- function(age, i, life_table) {
  px <- ___
  kpx <- c(___, ___(px[(___):length(px)]))
  discount_factors <- (___) ^ - (0:(___))
  sum(discount_factors * kpx)
}

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

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

Editează și rulează codul