R ile Hayat Sigortası Ürünlerinin Değerlemesi
Katrien Antonio, Ph.D.
Professor, KU Leuven and University of Amsterdam
İki nakit akışı vektörü arasında denklem kur.
Örnekler:
ipotek: bankadan alınan anapara ve ipotek ödemeleri serisi;
sigorta ürünü: sigortanın karşıladığı teminatlar ve prim ödemeleri serisi.



Bay İnanılmaz'ın kredi ödeme vektörü $(0,K,K,K,K)$ ve Bugünkü Değer:
$$ \sum_{k=1}^4 K \cdot v(0,k) \, $$
O halde, denkliği kur ve bilinmeyen $K$ için çöz!
$$ 20\ 000 = \sum_{k=1}^4 K \cdot v(0,k). $$

# 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
R ile Hayat Sigortası Ürünlerinin Değerlemesi