Bayan Cathleen için bir emeklilik planı
Cynthia, yaz stajının son görevi olarak Bayan Cathleen için bazı hesaplamalar yapması istenir. Bayan Cathleen 40 yaşında bir öğretmen ve emekliliğini planlıyor. 65 yaşından başlayarak hayatı boyunca her yıl 18.000 EUR ödeyen bir yıllık gelir (annuite) satın almak istiyor. 65 yaşından önce ölüm halinde herhangi bir ödeme yapılmayacak. Aşağıdaki görsel, Bayan Cathleen'in emeklilik planını göstermektedir.
Bir yıllık sağkalım olasılıkları px yine önceden yüklenmiştir.
Bu egzersiz, kursun bir parçasıdır
R ile Hayat Sigortası Ürünlerinin Değerlemesi
Egzersiz talimatları
- 40 yaşındaki bir kadın için
kpxtanımla. - Zaman sıfırdan (40 yaş)
length(kpx) - 1zamana kadar ödemeleri %3 oranla iskonto edendiscount_factorsvektörünü oluştur. - Emekli maaşı ödemelerini
benefitsdeğişkenine ata. Bu vektörün uzunluğununkpxile aynı olduğundan emin ol. single_premiumdeğerini,benefits,discount_factorsvekpx'in eleman düzeyinde çarpımının toplamı olarak hesapla. Sonucu yazdır.
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
# Survival probabilities of (40)
kpx <- c(___, ___(px[(___):___]))
# Discount factors (to age 40)
discount_factors <- (1 + ___) ^ -(0:(___))
# Pension benefits
benefits <- c(rep(___, ___), rep(___, length(kpx) - 25))
# The single premium
single_premium <- ___
single_premium