Peşin mi, vadeli mi?
Cynthia'nın amiri, ödevin devamı olarak, ödemelerin bir yıl sonra başladığı vadeli (immediate) bir hayat yıllığının betiğini nasıl uyarlayacağını bulmasını istiyor.
Belçika 1999 kadın hayat tablosu life_table olarak önceden yüklenmiştir ve önceki egzersizin çözüm kodu başlangıç noktası olarak verilmiştir. Fonksiyon tanımını hatırlamak istersen konsola life_annuity_due yaz.
Bu egzersiz, kursun bir parçasıdır
R ile Hayat Sigortası Ürünlerinin Değerlemesi
Egzersiz talimatları
life_annuity_due()fonksiyonunu temel alarak, bir bütün hayat vadeli (immediate) yıllığın BEV'sini (EPV) hesaplayan yeni birlife_immediate_annuity()fonksiyonu yaz. Immediate yıllıkta zaman 0'da herhangi bir ödeme olmadığından, hemkpxhem dediscount_factorszaman 1'den itibaren tanımlanmalıdır.life_tablekullanarak sabit %2 faiz oranında (20) için bir bütün hayat vadeli yıllığın BEV'sini hesapla. Sonucun, peşin yıllığa göre 1 EUR daha düşük olduğunu doğrula.
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
# EPV of a whole life annuity due for (20) at interest rate 2% using life_table
life_annuity_due(20, 0.02, life_table)
# Function to compute the EPV of a whole life immediate annuity for a given age, interest rate i and life table
life_immediate_annuity <- function(age, i, life_table) {
px <- ___
kpx <- ___(px[(age + 1):length(px)])
discount_factors <- (___) ^ - (___)
sum(___)
}
# EPV of a whole life immediate annuity for (20) at interest rate 2% using life_table
life_immediate_annuity(___, ___, ___)