Obliczenia emerytalne z uwzględnieniem śmiertelności

Jak zmienia się wartość bieżąca, gdy uwzględnisz śmiertelność? Wypłaty emerytalne nie są wtedy już gwarantowane – zależą od tego, czy świadczeniobiorca przeżyje. Roczne prawdopodobieństwa przeżycia px zostały wczytane wcześniej, wraz ze zmiennymi benefits, discount_factors, PV_65 i PV_20 utworzonymi w poprzednim ćwiczeniu.

To ćwiczenie jest częścią kursu

Wycena produktów ubezpieczeń na życie w R

Zobacz kurs

Instrukcje do ćwiczenia

Zapisz prawdopodobieństwa przeżycia osoby 65-letniej do wieku 100 lat w zmiennej kpx. Upewnij się, że kpx zaczyna się od wartości 1.
Oblicz EPV w wieku 65 lat dla emerytury z uwzględnieniem śmiertelności. Przypisz wynik do EPV_65 i porównaj tę wartość z PV_65, która nie uwzględnia śmiertelności.
Zdyskontuj EPV w wieku 65 lat do EPV w wieku 20 lat, biorąc pod uwagę zarówno stopę procentową wynoszącą 3%, jak i przeżycie osoby w wieku 20 lat do wieku 65 lat. Ponownie porównaj EPV_20 z PV_20.

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

# Survival probabilities of (65) up to age 100
kpx <- c(1, ___(px[(___):(___)]))

# EPV of pension at age 65
EPV_65 <- ___(___ * ___ * ___)
cbind(PV_65, EPV_65)

# EPV of pension at age 20
EPV_20 <- EPV_65 * (1.03 ^ - 45 * ___(px[(___):(___)]))
cbind(PV_20, EPV_20)

Edytuj i uruchom kod