Assicurazione temporanea caso morte

Ethan si chiede come cambi il VAP di un'assicurazione caso morte se la copertura è limitata nel tempo, come mostrato nella figura qui sotto.

Per iniziare, calcola il VAP di un'assicurazione vita intera per un ventenne con tasso d'interesse \(i = 2\%\) usando la life_table pre-caricata per le donne in Belgio nel 1999.

Partendo dalla funzione whole_life_insurance() creata nell'esercizio precedente, puoi aiutare Cynthia a scrivere una funzione per un'assicurazione temporanea caso morte?

Questo esercizio fa parte del corso

Valutazione dei prodotti assicurativi sulla vita in R

Visualizza corso

Istruzioni dell'esercizio

Definisci la funzione temporary_life_insurance() che calcola il VAP per un'assicurazione temporanea caso morte. Oltre ai consueti argomenti age, i e life_table, la funzione richiede ora un argomento aggiuntivo n che indica per quanti anni è valida la copertura dell'assicurazione.
Usa la nuova funzione temporary_life_insurance() per calcolare come cambia il VAP dell'assicurazione di (20) al tasso del 2% quando la copertura è limitata a un periodo di 45 anni.

esercizio interattivo pratico

Prova questo esercizio completando questo codice di esempio.

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

Modifica ed esegui il codice