Fungsi untuk menghitung harga anuitas jiwa

Pembimbing magang Cynthia tidak terlalu berpengalaman dengan R. Ia memintanya menulis sebuah fungsi R yang menghitung EPV dari anuitas jiwa jatuh tempo (seumur hidup) atas \((x)\) untuk tingkat bunga konstan \(i\) dan tabel mortalitas tertentu.

Karena manfaatnya konstan sebesar 1 EUR, tidak perlu memasukkannya secara eksplisit dalam perhitungan.

Latihan ini merupakan bagian dari kursus

Penilaian Produk Asuransi Jiwa di R

Lihat Kursus

Instruksi latihan

Tulis fungsi life_annuity_due() yang menghitung EPV dari anuitas jiwa jatuh tempo seumur hidup dengan argumen masukan age, tingkat bunga i, dan life_table.
Terapkan life_annuity_due() untuk menghitung EPV anuitas jiwa jatuh tempo bagi (20) pada tingkat 2%. Gunakan tabel mortalitas periode Belgia 1999 untuk perempuan yang sudah dimuat sebagai life_table.
Cari tahu bagaimana EPV berubah jika tingkat bunga naik menjadi 5% (dengan usia tetap 20). Lalu bagaimana jika usia berubah menjadi 65 (dengan tingkat bunga tetap 2%)?

Latihan interaktif langsung praktik

Cobalah latihan ini dengan melengkapi kode contoh ini.

# 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(___, ___, ___)

Edit dan Jalankan Kode