Jaká je pravděpodobnost, že se Cynthia dožije 100 let?

Jako nadšená uživatelka R si Cynthia první průzkumy úmrtnostní tabulky pro rok 1999 opravdu užila. Nyní chce pomocí R získat hlubší vhled. Zajímá ji zejména pravděpodobnost, že se někdo dožije sta let. Jaká je tato pravděpodobnost pro nula let starou osobu podle dat z roku 1999? A pro osmnáctiletou? Zkus přijít na to, jak tyto pravděpodobnosti vypočítat, a pak vytvoř vizualizaci \((k,\ _kp_{18})\).

V následujících cvičeních je znovu předem načtena periodická úmrtnostní tabulka pro ženy v Belgii za rok 1999, uložená v objektu life_table, a sloupec lx je pro tebe již extrahován.

Toto cvičení je součástí kurzu

Oceňování produktů životního pojištění v R

Zobrazit kurz

Pokyny k cvičení

Pomocí lx vypočítej pravděpodobnost, že se nula let stará osoba dožije sta let (tj. dosáhne věku 100). Nezapomeň použít indexování.
Vypočítej stejnou pravděpodobnost pro osmnáctiletou osobu.
Vypočítej a vykresli pravděpodobnosti, že se osmnáctiletá osoba dožije věků 18, 19, … až 100. Definuj k jako vektor od 0 do 82 a pomocí k vypočítej tyto pravděpodobnosti.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

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

Upravit a spustit kód