Reprezentarea grafică a speranțelor de viață pe vârste

Cynthia decide să vizualizeze speranța de viață în funcție de vârstă. O poți ghida să construiască un astfel de grafic?

Pentru a face acest lucru eficient în R, scrie mai întâi o funcție care calculează speranța de viață curtată pentru o vârstă dată și un tabel de mortalitate. Apoi, poți aplica această funcție pentru toate vârstele din tabelul de mortalitate. Folosind sapply() (docs), rezultatul este simplificat la cea mai elementară structură de date posibilă.

Obiectul life_table preîncărcat conține tabelul de mortalitate periodică pentru femei din Belgia, aferent anului 1999.

Acest exercițiu face parte din cursul

Evaluarea produselor de asigurare de viață în R

Vezi cursul

Instrucțiuni pentru exercițiu

Completează codul care definește funcția curtate_future_lifetime().
Creează un vector ages extragând coloana age din life_table.
Folosește sapply() cu argumentele ages, curtate_future_lifetime și life_table pentru a calcula speranța de viață curtată la toate vârstele din tabelul de mortalitate.
Reprezintă grafic future_lifetimes în funcție de ages.

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

# 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")

Editează și rulează codul