En funktion för att prissätta en livsränta

Cynthias handledare har inte så stor erfarenhet av R. Han ber henne skriva en R-funktion som beräknar EPV för en (hel) livsränta due för \((x)\) givet en konstant ränta \(i\) och en livstabell.

Eftersom förmånen är konstant på 1 EUR behöver den inte tas med explicit i beräkningarna.

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

Värdering av livförsäkringsprodukter i R

Visa kurs

Övningsinstruktioner

Skriv en funktion life_annuity_due() som beräknar EPV för en hel livsränta due med indataargumenten age, ränta i och life_table.
Använd life_annuity_due() för att beräkna EPV för en livsränta due för (20) vid räntan 2%. Använd den belgiska periodlivstabellen för kvinnor från 1999, som är förinläst som life_table.
Ta reda på hur EPV förändras om räntan ökar till 5% (med åldern kvar på 20). Och vad händer om åldern ändras till 65 (med räntan kvar på 2%)?

Interaktiv övning med praktiskt arbete

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

# Function to compute the EPV of a whole life annuity due for a given age, interest rate i and life table
life_annuity_due <- function(age, i, life_table) {
  px <- ___
  kpx <- c(___, ___(px[(___):length(px)]))
  discount_factors <- (___) ^ - (0:(___))
  sum(discount_factors * kpx)
}

# EPV of a whole life annuity due for (20) at interest rate 2% using life_table
life_annuity_due(___, ___, ___)

# EPV of a whole life annuity due for (20) at interest rate 5% and for (65) at interest rate 2% using life_table
life_annuity_due(___, ___, ___)
life_annuity_due(___, ___, ___)

Redigera och kör kod