Asuransi jiwa seumur hidup

Untuk membantu temannya, Ethan, yang sedang belajar menghadapi ujian aktuaris, Cynthia ingin membuatkan kode R yang menghitung EPV dari asuransi jiwa (seumur hidup) pada \((x)\) untuk tingkat bunga konstan \(i\) yang diberikan. Karena manfaat kematian bernilai konstan 1 EUR, Anda tidak perlu memasukkannya secara eksplisit dalam perhitungan.

Tabel mortalitas perempuan Belgia tahun 1999 sudah dimuat sebagai life_table. Fungsi plot_by_age() dan plot_by_interest_rate() telah didefinisikan sebelumnya untuk menggambarkan bagaimana EPV berubah terhadap usia \(x\) pemegang polis dan terhadap tingkat bunga. Anda dapat meninjau fungsi-fungsi ini dengan mengetikkan namanya di konsol R.

Latihan ini merupakan bagian dari kursus

Penilaian Produk Asuransi Jiwa di R

Lihat Kursus

Instruksi latihan

Lengkapi fungsi whole_life_insurance() yang menghitung EPV asuransi jiwa seumur hidup untuk age, tingkat bunga i, dan life_table yang diberikan.
Jalankan kode yang telah disiapkan untuk memplot EPV asuransi jiwa seumur hidup pada rentang usia (pada tingkat bunga 3%) dan rentang tingkat bunga (untuk usia 20 tahun). Interpretasikan grafik yang dihasilkan.

Latihan interaktif langsung praktik

Cobalah latihan ini dengan melengkapi kode contoh ini.

# Function to compute the EPV of a whole life insurance
whole_life_insurance <- function(age, i, life_table) {
  qx <- life_table$qx
  px <- ___
  kpx <- c(1, cumprod(px[(___):(length(px) - 1)]))
  kqx <- kpx * qx[(___):length(qx)]
  discount_factors <- (___) ^ - (1:length(kqx))
  sum(discount_factors * kqx)
}

# Plot the EPV of a whole life insurance for a range of ages at interest rate 3% using life_table
plot_by_age()

# Plot the EPV of a whole life insurance for (20) for a range of interest rates using life_table
plot_by_interest_rate()

Edit dan Jalankan Kode