Asuransi jiwa temporer

Ethan ingin tahu bagaimana EPV suatu asuransi jiwa berubah jika masa pertanggungannya dibatasi waktu, seperti pada gambar di bawah ini.

Ia terlebih dahulu menghitung EPV asuransi jiwa seumur hidup untuk seseorang berusia 20 tahun pada tingkat bunga \(i = 2\%\) dan menggunakan life_table yang telah dimuat untuk perempuan di Belgia tahun 1999.

Berdasarkan fungsi whole_life_insurance() yang dibuat pada latihan sebelumnya, dapatkah Anda membantu Cynthia menulis fungsi untuk asuransi jiwa temporer?

Latihan ini merupakan bagian dari kursus

Penilaian Produk Asuransi Jiwa di R

Lihat Kursus

Instruksi latihan

Definisikan fungsi temporary_life_insurance() yang menghitung EPV untuk asuransi jiwa temporer. Selain argumen berulang age, i, dan life_table, fungsi ini kini menerima argumen tambahan n yang menunjukkan jumlah tahun masa pertanggungan asuransi jiwa berlaku.
Gunakan fungsi temporary_life_insurance() yang baru Anda definisikan untuk menghitung bagaimana EPV asuransi jiwa pada usia (20) dengan tingkat 2% berubah ketika masa pertanggungan dibatasi selama 45 tahun.

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

Edit dan Jalankan Kode