Asuransi jiwa tangguhan

Cynthia kini menantang Ethan untuk mengubah kodenya sendiri guna menghitung EPV asuransi jiwa tangguhan atas \((x)\) untuk tingkat bunga konstan \(i\) tertentu. Gambar berikut menunjukkan lini masa yang sesuai untuk periode penangguhan selama \(u\) tahun.

Tidak ada manfaat kematian jika pemegang polis meninggal dalam \(u\) tahun pertama. Mulai waktu \(u\), manfaat kematian sebesar 1 EUR dibayarkan pada akhir tahun kematian pemegang polis.

Fungsi whole_life_insurance() dan EPV asuransi jiwa seumur hidup untuk usia 20 tahun pada tingkat bunga \(i = 2\%\) dan menggunakan life_table perempuan tahun 1999 telah disediakan sebagai titik awal.

Latihan ini merupakan bagian dari kursus

Penilaian Produk Asuransi Jiwa di R

Lihat Kursus

Instruksi latihan

Tentukan fungsi deferred_life_insurance() yang menghitung EPV asuransi jiwa tangguhan untuk age tertentu, periode penangguhan u, tingkat bunga i, dan life table.
Terapkan fungsi deferred_life_insurance() untuk menghitung EPV asuransi jiwa dengan periode penangguhan 45 tahun. Gunakan usia 20, tingkat bunga 2%, dan life_table perempuan tahun 1999 yang sudah dimuat.

Latihan interaktif langsung praktik

Cobalah latihan ini dengan melengkapi kode contoh ini.

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

Edit dan Jalankan Kode