Her yerde, her zaman?
Harcamalarını düşündüğünde Cynthia, parayı indirmelere ve konser biletlerine harcamak yerine bir banka hesabına koyarsa ne kadar biriktirebileceğini merak ediyor. Bu amaçla, uygun bir iskonto fonksiyonu kullanarak nakit akışlarının gelecekteki bir zamandaki değerini hesaplayacaksın.
Yukarıda Cynthia'nın harcama düzeni gösteriliyor. İlk egzersizde tanımladığın cash_flows vektörü çalışma alanına önceden yüklendi. Faiz oranı hâlâ %2.
Bu egzersiz, kursun bir parçasıdır
R ile Hayat Sigortası Ürünlerinin Değerlemesi
Egzersiz talimatları
- Zaman \(t\)'de ödenen 1 EUR'un \(s\) zamanındaki değerini hesaplayan
discount()fonksiyonunu tanımla. - 0'dan 5'e kadar zamanlarda
cash_flows'un bugünkü değerini hesaplamak içindiscount()fonksiyonunu kullan. Bu, önceki sonucunla eşleşmeli: 444,93 EUR. - Cynthia 6 yıl sonra 18 yaşına geldiğinde nakit akışı vektörünün değerini yazdır.
- Zaman 6'da biriken değeri farklı bir yolla hesapla. Bu kez 0 anındaki
present_valuedeğerini zaman 6 değerine dönüştür.
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
# Define the discount function v
discount <- function(s, t, i = 0.02) {
(1 + ___) ^ - (___ - ___)
}
# Calculate the present value
present_value <- sum(cash_flows * discount(___, ___))
present_value
# Calculate the value at time 6
sum(cash_flows * discount(___, ___))
# Calculate the value at time 6, starting from present_value
present_value * discount(___, ___)