Faiz oranları değişiyor

Cynthia, Avustralya gezisini finanse etmek için ailesinden borç almak istiyor. Bu yıl 1000 EUR'ya ve gelecek yıl da 5000 EUR'ya ihtiyacı var. Aşağıdaki zaman çizelgesinde gösterildiği gibi borcunu her yıl ödemelerle, \(K\) tutarında, geri ödemek istiyor.

Kredi sözleşmesindeki faiz oranı sabit değil; zaman içinde, zaman çizelgesinde gösterildiği gibi değişiyor.

Bu yıllık faiz oranları interest vektöründe önceden tanımlanmıştır. Bu koşullar altında Cynthia'nın yıllık kredi ödemelerinin \(K\) = 816.86 EUR olması gerektiğini doğrulayabilir misin?

Bu egzersiz, kursun bir parçasıdır

R ile Hayat Sigortası Ürünlerinin Değerlemesi

Kursa Göz Atın

Egzersiz talimatları

Yıllık iskonto faktörlerini, 1 artı interest'in eksi birinci kuvveti olarak hesapla.
Her gelecekteki zamandan bugüne iskonto faktörlerini tanımla.
Kredi tutarlarını temsil eden pozitif 1000 ve 5000 değerleri ile kredi ödemelerini temsil eden 10 adet negatif -816.86 değerinden oluşan tam nakit akışı vektörünü belirt.
Nakit akışı vektörünün bugünkü değerini hesapla. Bu tutar (yuvarlamaya bağlı olarak) sıfıra eşit olmalı ve aktüeryal denkliği göstermelidir.

Uygulamalı etkileşimli egzersiz

Bu egzersizi bu örnek kodu tamamlayarak deneyin.

# Interest rates
interest <- c(rep(0.05, 3), rep(0.06, 3), rep(0.07, 5))

# Define the yearly discount factors
yearly_discount_factors <- (___) ^ ( - 1)

# Define the discount factors
discount_factors <- c(1 , ___(___))

# Define the cash flow vector
cash_flow <- c(___, ___, rep(___, ___))

# Calculate the PV
PV <- ___(___ * ___)
PV

Kodu Düzenle ve Çalıştır