Miesięczne raty kredytu hipotecznego
Rodzice Cynthii otrzymują pożyczkę w wysokości 125 000 EUR w zamian za stałe miesięczne płatności \(K\) przez kolejne 20 lat, co przedstawia poniższy wykres.
Korzystając ze zdefiniowanych w poprzednim ćwiczeniu zmiennych number_payments i monthly_interest, które są już wczytane, wyznacz wartość \(K\) na podstawie zasady równoważności aktuarialnej.
To ćwiczenie jest częścią kursu
Wycena produktów ubezpieczeń na życie w R
Instrukcje do ćwiczenia
- Zdefiniuj czynniki dyskontowe odpowiadające kolejnym miesiącom płatności – od pierwszego do ostatniego. Podnieś wyrażenie 1 plus
monthly_interestdo potęgi równej minus wektor od 1 donumber_payments. - Utwórz zmienną
paymentsodzwierciedlającą wzorzec płatności. Powinna to być wektor jedynek o długościnumber_payments. - Na koniec oblicz miesięczną ratę \(K\), dzieląc kwotę kredytu hipotecznego 125 000 przez wartość bieżącą wzorca płatności.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
# Define the discount factors
discount_factors <- (___) ^ - (___)
# Define the payment pattern
payments <- rep(___, ___)
# Calculate the monthly loan payment K
K <- ___ / ___(___ * ___)
K