Temporanea vs vitalizia

Infine, puoi aiutare Cynthia a scrivere una funzione per una rendita vitalizia anticipata temporanea in cui i pagamenti sono limitati nel tempo? Il primo pagamento avviene al tempo \(0\) e l'ultimo al tempo \(n-1\).

Sia life_table sia la funzione R life_annuity_due sono ancora disponibili nel tuo workspace.

Questo esercizio fa parte del corso

Valutazione dei prodotti assicurativi sulla vita in R

Visualizza corso

Istruzioni dell'esercizio

Definisci la funzione temporary_life_annuity_due() partendo dal codice di life_annuity_due() in modo che il VAP sia calcolato per una rendita vitalizia anticipata temporanea. La funzione ora ha un argomento aggiuntivo n che indica il numero di pagamenti. Sia kpx sia discount_factors devono quindi avere lunghezza totale n.
Usa temporary_life_annuity_due() per calcolare il VAP di una rendita vitalizia anticipata a 10 anni per (20) al tasso del 2% usando la tavola di mortalità periodale 1999 per femmine.

esercizio interattivo pratico

Prova questo esercizio completando questo codice di esempio.

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

Modifica ed esegui il codice