Hoe groot is Cynthias kans om 100 te worden?

Als R-statistiekliefhebber genoot Cynthia van haar eerste verkenningen van de sterftetafel voor 1999. Met R wil ze meer inzicht krijgen. Ze is vooral benieuwd naar de kans om een centenarian te worden. Wat is deze kans voor een nuljarige, volgens de gegevens van 1999? En voor een 18-jarige? Kun je uitvogelen hoe je die kansen berekent? Visualiseer daarna \((k,\ _kp_{18})\).

In de volgende oefeningen is de periodesterftetafel van 1999 voor vrouwen in België weer vooraf geladen en opgeslagen in het object life_table, en de kolom lx is alvast voor je uitgehaald.

Deze oefening maakt deel uit van de cursus

Waardering van levensverzekeringsproducten in R

Bekijk cursus

Oefeninstructies

Gebruik lx om de kans te berekenen dat een nuljarige een centenarian wordt (dus leeftijd 100 bereikt). Zorg dat je via indexering extraheert.
Bereken dezelfde kans voor een 18-jarige.
Bereken en plot de kansen voor een 18-jarige om te overleven tot leeftijden 18, 19, … tot en met 100. Definieer k als een vector van 0 tot 82. Gebruik k om de kansen te berekenen.

Interactieve oefening met praktijkervaring

Probeer deze oefening door deze voorbeeldcode aan te vullen.

# Compute the probabilty for (0) to reach the age 100
___

# Compute the probabilty for (18) to reach the age 100
___

# Plot the survival probabilties for (18) up to age 100
k <- ___
plot(k, ___, 
    pch = 20, 
    xlab = "k", 
    ylab = expression(paste(""[k], "p"[18])), 
    main = "Survival probabilities for (18)")

Code bewerken en uitvoeren