Ertelenmiş hayat sigortası
Cynthia şimdi Ethan'a, sabit bir faiz oranı \(i\) için \((x)\) üzerindeki ertelenmiş bir hayat sigortasının BEĐ'sini (beklenen değer bugünkü değer, EPV) hesaplayacak kodu kendi başına değiştirme meydan okuması veriyor. Aşağıdaki şekil, \(u\) yıllık erteleme süresi için ilgili zaman çizelgesini gösterir.
Sigortalı ilk \(u\) yıl içinde vefat ederse herhangi bir ölüm tazminatı yoktur. Zaman \(u\)'dan itibaren, sigortalının vefat ettiği yılın sonunda 1 EUR ölüm tazminatı ödenir.
Başlangıç noktası olarak, whole_life_insurance() fonksiyonu ve 1999 kadın life_table kullanılarak, \(i = 2\%\) faiz oranında 20 yaş için bir tüm hayat sigortasının BEĐ'si (EPV) verilmiştir.
Bu egzersiz, kursun bir parçasıdır
R ile Hayat Sigortası Ürünlerinin Değerlemesi
Egzersiz talimatları
deferred_life_insurance()fonksiyonunu, verilenage, erteleme süresiu, faiz oranıivelife tableiçin ertelenmiş bir hayat sigortasının BEĐ'sini (EPV) hesaplayacak şekilde tanımla.deferred_life_insurance()fonksiyonunu kullanarak, 45 yıllık erteleme süresine sahip bir hayat sigortasının BEĐ'sini (EPV) hesapla. Yaş 20, faiz oranı %2 ve önceden yüklenmiş 1999 kadınlife_tablekullan.
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
# EPV of a whole life insurance for (20) at interest rate 2% using life_table
whole_life_insurance(20, 0.02, life_table)
# Function to compute the EPV of a deferred whole life insurance
deferred_life_insurance <- function(age, u, i, life_table) {
qx <- life_table$qx; px <- 1 - qx
kpx <- c(1, cumprod(px[(age + 1):(length(px) - 1)]))
kqx <- kpx * qx[(age + 1):length(qx)]
discount_factors <- (1 + i) ^ - (1:length(kqx))
benefits <- c(rep(___, ___), rep(___, length(kpx) - u))
sum(___ * discount_factors * kqx)
}
# EPV of a deferred life insurance for (20) deferred over 45 years at interest rate 2% using life_table
deferred_life_insurance(___, ___, ___, ___)