Aylık konut kredisi ödemeleri
Cynthia'nın ailesi, aşağıdaki grafikte gösterildiği gibi, önümüzdeki 20 yıl boyunca sabit aylık ödemeler \(K\) karşılığında 125.000 EUR kredi alıyor.
Bir önceki egzersizde tanımlanan ve senin için önceden yüklenmiş number_payments ve monthly_interest değişkenlerini kullanarak, aktüeryal denk değer ilkesine göre \(K\) değerini senin belirlemen gerekiyor.
Bu egzersiz, kursun bir parçasıdır
R ile Hayat Sigortası Ürünlerinin Değerlemesi
Egzersiz talimatları
- İlk ödeme ayından son ödeme ayına kadar karşılık gelen iskonto çarpanlarını tanımla. Bunu, 1 artı
monthly_interestdeğerini, 1'dennumber_payments'a giden bir vektörün negatif kuvvetine yükselterek yap. - Ödeme desenini yansıtan
paymentsdeğişkenini oluştur. Bu, uzunluğunumber_paymentsolan birler vektörü olmalı. - Son olarak, 125.000 tutarındaki kredi anaparasını, ödeme deseninin bugünkü değerine bölerek aylık ödeme \(K\)'yı hesapla.
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
# Define the discount factors
discount_factors <- (___) ^ - (___)
# Define the payment pattern
payments <- rep(___, ___)
# Calculate the monthly loan payment K
K <- ___ / ___(___ * ___)
K