Un'assicurazione sulla vita per Miss Cathleen
Cynthia ha aiutato Miss Cathleen quando era tirocinante in una compagnia di assicurazioni sulla vita. Ora Miss Cathleen, 48 anni, cerca una protezione finanziaria nel caso in cui dovesse morire intorno al pensionamento. Per proteggere i figli che stanno crescendo vuole assicurare una prestazione di 40.000 EUR per il decesso tra i 55 e i 75 anni, come mostrato sotto.
Per valutare questa temporanea caso morte userai di nuovo la tavola di mortalità femminile belga del 1999, di cui le probabilità annuali di sopravvivenza px e i tassi di mortalità qx sono già stati caricati. Il tasso d'interesse del 5% è disponibile come i.
Questo esercizio fa parte del corso
Valutazione dei prodotti assicurativi sulla vita in R
Istruzioni dell'esercizio
- Calcola le probabilità di decesso differite \(q_{48}, \: _{1|}q_{48}, \: \ldots, \: _{26|}q_{48}\) per una persona di 48 anni fino ai 75 come prodotto tra probabilità di sopravvivenza multi-periodali e tassi di mortalità.
- Definisci i fattori di sconto appropriati al tasso
i. - Specifica il vettore
benefitscome le prestazioni in caso di morte di questa temporanea caso morte. - Calcola il valore attuale atteso del piano.
esercizio interattivo pratico
Prova questo esercizio completando questo codice di esempio.
# Deferred mortality probabilites of (48)
kqx <- c(___, ___(px[(___):(___)])) * qx[(___):(___)]
# Discount factors
discount_factors <- (___) ^ - (1:length(kqx))
# Death benefits
benefits <- c(rep(___, ___), rep(___, length(kqx) - 7))
# EPV of the death benefits
EPV_death_benefits <- ___
EPV_death_benefits