Anticipata vs posticipata
Come compito successivo, la supervisora di Cynthia le chiede di capire come adattare lo script per una rendita vitalizia posticipata in cui i pagamenti iniziano dopo un anno.
La tavola di mortalità femminile belga 1999 è già caricata come life_table e il codice risolto dell'esercizio precedente è fornito come punto di partenza. Digita life_annuity_due nella console se vuoi richiamare la definizione della funzione.
Questo esercizio fa parte del corso
Valutazione dei prodotti assicurativi sulla vita in R
Istruzioni dell'esercizio
- Partendo dalla funzione
life_annuity_due(), scrivi una nuova funzionelife_immediate_annuity()che calcoli il VAP di una rendita vitalizia immediata intera. Poiché per una rendita posticipata non c'è alcuna prestazione pagata al tempo 0, siakpxsiadiscount_factorsdevono essere definiti a partire dal tempo 1. - Calcola il VAP di una rendita vitalizia immediata intera per (20) con un tasso d'interesse costante del 2% usando
life_table. Verifica che il risultato sia inferiore di 1 EUR rispetto alla rendita anticipata.
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 whole life immediate annuity for a given age, interest rate i and life table
life_immediate_annuity <- function(age, i, life_table) {
px <- ___
kpx <- ___(px[(age + 1):length(px)])
discount_factors <- (___) ^ - (___)
sum(___)
}
# EPV of a whole life immediate annuity for (20) at interest rate 2% using life_table
life_immediate_annuity(___, ___, ___)