Perhitungan pensiun dengan mempertimbangkan mortalitas

Bagaimana nilai sekarang berubah jika Anda mempertimbangkan mortalitas? Pembayaran pensiun tidak lagi dijamin, melainkan bergantung pada kelangsungan hidup penerima. Peluang bertahan hidup satu tahun px telah dimuat sebelumnya, begitu pula variabel benefits, discount_factors, PV_65, dan PV_20 yang dibuat pada latihan sebelumnya.

Latihan ini merupakan bagian dari kursus

Penilaian Produk Asuransi Jiwa di R

Lihat Kursus

Instruksi latihan

Simpan peluang bertahan hidup seseorang berusia 65 tahun hingga usia 100 ke dalam variabel kpx. Pastikan kpx diawali dengan 1.
Hitung EPV pada usia 65 untuk pensiun dengan mempertimbangkan mortalitas. Tetapkan hasilnya ke EPV_65 dan bandingkan nilainya dengan PV_65 yang tidak mempertimbangkan mortalitas.
Diskontokan EPV pada usia 65 menjadi EPV pada usia 20 dengan mempertimbangkan suku bunga 3% dan kelangsungan hidup (20) hingga usia 65. Sekali lagi, bandingkan EPV_20 dengan PV_20.

Latihan interaktif langsung praktik

Cobalah latihan ini dengan melengkapi kode contoh ini.

# Survival probabilities of (65) up to age 100
kpx <- c(1, ___(px[(___):(___)]))

# EPV of pension at age 65
EPV_65 <- ___(___ * ___ * ___)
cbind(PV_65, EPV_65)

# EPV of pension at age 20
EPV_20 <- EPV_65 * (1.03 ^ - 45 * ___(px[(___):(___)]))
cbind(PV_20, EPV_20)

Edit dan Jalankan Kode