Kesetaraan aktuaria

Penilaian Produk Asuransi Jiwa di R

Katrien Antonio, Ph.D.

Professor, KU Leuven and University of Amsterdam

Kesetaraan aktuaria untuk vektor arus kas

Tetapkan kesetaraan antara dua vektor arus kas.
Contoh:
- hipotek: modal yang dipinjam dari bank, dan rangkaian pembayaran hipotek;
- produk asuransi: manfaat yang ditanggung asuransi, dan rangkaian pembayaran premi.

Mobil baru Mr. Incredible

Nilai mobil $20 \, 000$ EUR;
Vektor pembayaran pinjaman Mr. Incredible adalah $(0,K,K,K,K)$ dengan Nilai Sekarang:

$$ \sum_{k=1}^4 K \cdot v(0,k) \, $$
Lalu, tetapkan kesetaraan dan cari $K$ yang belum diketahui!

$$ 20\ 000 = \sum_{k=1}^4 K \cdot v(0,k). $$

Mobil baru Mr. Incredible di R

# Define the discount factors
discount_factors <- (1 + 0.03) ^ - (0:4)

# Define the vector with the payments
payments <- c(0, rep(1, 4))

# Calculate the present value of the payments
PV_payment <- sum(payments * discount_factors)

# Calculate the yearly payment 
20000 / PV_payment

5380.541

Ayo berlatih!

Penilaian Produk Asuransi Jiwa di R