Visualisera återstående medellivslängd per ålder

Cynthia vill visualisera den återstående medellivslängden som en funktion av ålder. Kan du hjälpa henne att konstruera ett sådant diagram?

För att göra detta effektivt i R bör du först skriva en funktion som beräknar den curtate återstående livslängden för en given ålder och livstabell. Sedan kan du tillämpa funktionen på alla åldrar i livstabellen. Med sapply() (docs) förenklas utdata till den mest grundläggande datastrukturen.

Det förinstallerade objektet life_table innehåller periodlivstabellen för 1999 för kvinnor i Belgien.

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

Värdering av livförsäkringsprodukter i R

Visa kurs

Övningsinstruktioner

Komplettera koden som definierar funktionen curtate_future_lifetime().
Skapa en vektor ages genom att extrahera kolumnen age från life_table.
Använd sapply() med argumenten ages, curtate_future_lifetime och life_table för att beräkna den curtate återstående livslängden för alla åldrar i livstabellen.
Rita ett diagram med future_lifetimes mot ages.

Interaktiv övning med praktiskt arbete

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

# Function to compute the curtate expected future lifetime for a given age and life table
curtate_future_lifetime <- function(age, life_table) {
  px <- ___
  kpx <- ___(px[(___):length(px)])
  ___(___)
}

# Vector of ages
ages <- ___

# Curtate future lifetimes for all ages
future_lifetimes <- ___(___, ___, ___)

# Future lifetime by age
plot(___, ___, type = 'l', lwd = 2, col = "green", xlab = "Age x", ylab = "Future lifetime", main = "Future lifetime by age")

Redigera och kör kod