Temporär vs livslång

Kan du slutligen hjälpa Cynthia att skriva en funktion för en temporär livsränta i förskott där betalningarna är begränsade i tid? Den första betalningen sker vid tidpunkt \(0\) och den sista vid tidpunkt \(n-1\).

Både life_table och R-funktionen life_annuity_due finns fortfarande tillgängliga i din arbetsyta.

Den här övningen är en del av kursen

Värdering av livförsäkringsprodukter i R

Visa kurs

Övningsinstruktioner

Definiera funktionen temporary_life_annuity_due() med utgångspunkt i koden för life_annuity_due() så att EPV beräknas för en temporär livsränta i förskott. Funktionen har nu ett extra argument n som anger antalet betalningar. Både kpx och discount_factors ska därför ha en total längd av n.
Använd temporary_life_annuity_due() för att beräkna EPV för en 10-årig livsränta i förskott för (20) vid räntan 2 % med hjälp av 1999 års periodlivslängdstabell för kvinnor.

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

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

Redigera och kör kod