Breve e lungo termine

Scopriamo cosa succede al valore attuale del pagamento garantito e della rendita certa a termine (pure endowment) di 10.000 EUR quando cambi l'orizzonte temporale da 5 a 10 o 30 anni. Il tasso d'interesse resta costante al \(2\%\) e le probabilità di sopravvivenza px sono già caricate.

Questo esercizio fa parte del corso

Valutazione dei prodotti assicurativi sulla vita in R

Visualizza corso

Istruzioni dell'esercizio

Assegna a PV i valori attuali dei pagamenti garantiti di 10.000 EUR fra 5, 10 e 30 anni. Usa la vettorializzazione.
Calcola le probabilità di sopravvivenza kpx di (20) usando cumprod() sul sottoinsieme di px a partire da 20 + 1 fino a length(px).
Usa kpx ai tempi c(5, 10, 30) per trasformare il PV dei pagamenti garantiti nell'EPV dei corrispondenti pure endowments.

esercizio interattivo pratico

Prova questo esercizio completando questo codice di esempio.

# PV of guaranteed payments of 10,000 in 5, 10 and 30 years
PV <- ___ * (___) ^ - c(___)
PV

# Survival probabilities of (20)
kpx <- ___(px[(___):___])

# EPV of pure endowments of 10,000 in 5, 10 and 30 years for (20)
___ * ___[c(___)]

Modifica ed esegui il codice