Bir hayat geliri için fiyatlama fonksiyonu

Cynthia'nın staj süpervizörünün R konusunda çok deneyimi yok. Ondan, verilen sabit faiz oranı \(i\) ve yaşam tablosu için \((x)\) üzerinde (ömür boyu) peşin hayat gelirinin EPV'sini hesaplayan bir R fonksiyonu yazmasını istiyor.

Faydalanım 1 EUR sabit olduğundan, hesaplamalarda bunu ayrıca dikkate almana gerek yok.

Bu egzersiz, kursun bir parçasıdır

R ile Hayat Sigortası Ürünlerinin Değerlemesi

Kursa Göz Atın

Egzersiz talimatları

Girdi argümanları age, faiz oranı i ve life_table olan, ömür boyu peşin hayat gelirinin EPV'sini hesaplayan life_annuity_due() fonksiyonunu yaz.
life_annuity_due() fonksiyonunu kullanarak (20) yaşı için %2 oranında peşin hayat gelirinin EPV'sini hesapla. Kadınlar için 1999 Belçika dönem yaşam tablosu önceden life_table olarak yüklüdür.
Faiz oranı %5'e çıkarsa (yaşı 20'de sabit tutarak) EPV nasıl değişir? Peki yaş 65 olursa (faiz oranını %2'de tutarak) ne olur?

Uygulamalı etkileşimli egzersiz

Bu egzersizi bu örnek kodu tamamlayarak deneyin.

# Function to compute the EPV of a whole life annuity due for a given age, interest rate i and life table
life_annuity_due <- function(age, i, life_table) {
  px <- ___
  kpx <- c(___, ___(px[(___):length(px)]))
  discount_factors <- (___) ^ - (0:(___))
  sum(discount_factors * kpx)
}

# EPV of a whole life annuity due for (20) at interest rate 2% using life_table
life_annuity_due(___, ___, ___)

# EPV of a whole life annuity due for (20) at interest rate 5% and for (65) at interest rate 2% using life_table
life_annuity_due(___, ___, ___)
life_annuity_due(___, ___, ___)

Kodu Düzenle ve Çalıştır