Jakie jest prawdopodobieństwo, że Cynthia dożyje 100 lat?
Cynthia, miłośniczka statystyki w R, z przyjemnością rozpoczęła eksplorację tablicy trwania życia dla roku 1999. Teraz chce pogłębić swoją analizę. Szczególnie interesuje ją prawdopodobieństwo zostania stulatką. Jakie jest to prawdopodobieństwo dla osoby w wieku zerowym, na podstawie danych z 1999 roku? A dla osoby w wieku 18 lat? Spróbuj obliczyć te prawdopodobieństwa, a następnie wykonaj wizualizację \((k,\ _kp_{18})\).
W kolejnych ćwiczeniach tablica trwania życia dla kobiet w Belgii (okres 1999) jest ponownie wczytana i zapisana w obiekcie life_table, a kolumna lx została dla ciebie wyodrębniona.
To ćwiczenie jest częścią kursu
Wycena produktów ubezpieczeń na życie w R
Instrukcje do ćwiczenia
- Użyj
lx, aby obliczyć prawdopodobieństwo, że osoba w wieku zerowym dożyje 100 lat (tj. osiągnie wiek 100 lat). Pamiętaj, aby odwoływać się do wartości przez indeks. - Oblicz to samo prawdopodobieństwo dla osoby w wieku 18 lat.
- Oblicz i zwizualizuj prawdopodobieństwa przeżycia do kolejnych lat (18, 19, … do 100 lat) dla osoby w wieku 18 lat. Zdefiniuj
kjako wektor od 0 do 82 i użyj go do obliczenia prawdopodobieństw.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
# 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)")