Süreli hayat sigortası
Ethan, aşağıdaki şekilde gösterildiği gibi teminat süresiyle sınırlandığında bir hayat sigortasının EPV'sinin nasıl değiştiğini merak ediyor.
Önce, 1999 Belçika kadınları için önceden yüklenmiş life_table'ı ve faiz oranı \(i = 2\%\)'yi kullanarak, 20 yaşındaki biri için tüm hayat sigortasının EPV'sini hesaplıyor.
Önceki egzersizde oluşturduğun whole_life_insurance() fonksiyonundan yola çıkarak, Cynthia'ya süreli bir hayat sigortası için bir fonksiyon yazmada yardımcı olabilir misin?
Bu egzersiz, kursun bir parçasıdır
R ile Hayat Sigortası Ürünlerinin Değerlemesi
Egzersiz talimatları
temporary_life_insurance()fonksiyonunu tanımla; bu fonksiyon, süreli bir hayat sigortası için EPV'yi hesaplar. Tekrarlayanage,ivelife_tableargümanlarına ek olarak, fonksiyon artık sigorta teminatının kaç yıl geçerli olacağını belirtennadlı bir argüman alır.- Yeni tanımladığın
temporary_life_insurance()fonksiyonunu kullanarak, (20) yaş için 2% oranda teminatın 45 yıllık bir dönemle sınırlandığında hayat sigortasının EPV'sinin nasıl değiştiğini hesapla.
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 temporary life insurance
temporary_life_insurance <- function(age, n, i, life_table) {
qx <- life_table$qx
px <- 1 - qx
kpx <- c(1, cumprod(px[(___):(___)]))
kqx <- kpx * qx[(___):(___)]
discount_factors <- (1 + i) ^ - (1:length(kqx))
___(___ * ___)
}
# EPV of a temporary life insurance for (20) over a period of 45 years at interest rate 2% using life_table
temporary_life_insurance(___, ___, ___, ___)