Sementara vs seumur hidup

Terakhir, bisakah Anda membantu Cynthia menulis sebuah fungsi untuk anuitas hidup di muka bersifat sementara, di mana pembayaran dibatasi oleh waktu? Pembayaran pertama terjadi pada waktu \(0\) dan yang terakhir pada waktu \(n-1\).

Baik life_table maupun fungsi R life_annuity_due masih tersedia di workspace Anda.

Latihan ini merupakan bagian dari kursus

Penilaian Produk Asuransi Jiwa di R

Lihat Kursus

Instruksi latihan

Definisikan fungsi temporary_life_annuity_due() dengan memulai dari kode life_annuity_due() sehingga EPV dihitung untuk anuitas hidup di muka bersifat sementara. Fungsi ini sekarang memiliki argumen tambahan n yang menunjukkan jumlah pembayaran. Karena itu, total panjang kpx dan discount_factors harus bernilai n.
Gunakan temporary_life_annuity_due() untuk menghitung EPV anuitas hidup di muka selama 10 tahun untuk (20) pada tingkat 2% menggunakan period life table 1999 untuk perempuan.

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 temporary life annuity due for a given age, period of n years, interest rate i and life table
temporary_life_annuity_due <- function(age, n, i, life_table) {
  px <- 1 - life_table$qx
  kpx <- c(1, cumprod(px[(___):(___)]))
  discount_factors <- (1 + i) ^ - (0:(___))
  ___
}

# EPV of a temporary life annuity due for (20) over 10 years at interest rate 2% using life_table
temporary_life_annuity_due(___, ___, ___, ___)

Edit dan Jalankan Kode