Immediate vs due

Sebagai tugas lanjutan, atasan Cynthia memintanya mencari cara menyesuaikan skrip untuk anuitas hidup immediate, di mana pembayaran dimulai setelah satu tahun.

Tabel kematian perempuan Belgia tahun 1999 telah dimuat sebagai life_table dan kode solusi dari latihan sebelumnya disediakan sebagai titik awal. Ketik life_annuity_due di konsol jika Anda ingin mengingat definisi fungsinya.

Latihan ini merupakan bagian dari kursus

Penilaian Produk Asuransi Jiwa di R

Lihat Kursus

Instruksi latihan

Berdasarkan fungsi life_annuity_due(), tulislah fungsi baru life_immediate_annuity() yang menghitung EPV anuitas hidup seumur hidup jenis immediate. Karena tidak ada manfaat yang dibayarkan pada waktu 0 untuk anuitas immediate, baik kpx maupun discount_factors harus didefinisikan mulai waktu 1.
Hitung EPV anuitas hidup seumur hidup jenis immediate untuk (20) pada tingkat bunga konstan 2% menggunakan life_table. Verifikasikan bahwa hasilnya 1 EUR lebih rendah dibandingkan anuitas due.

Latihan interaktif langsung praktik

Cobalah latihan ini dengan melengkapi kode contoh ini.

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

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

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

Edit dan Jalankan Kode