Ratele lunare ale unui credit ipotecar
Părinții Cynthiei primesc un împrumut de 125.000 EUR în schimbul unor plăți lunare fixe \(K\) pe parcursul următorilor 20 de ani, așa cum este ilustrat în graficul de mai jos.
Folosind variabilele number_payments și monthly_interest definite în exercițiul anterior, care sunt deja preîncărcate, determină valoarea lui \(K\) pe baza principiului echivalenței actuariale.
Acest exercițiu face parte din cursul
Evaluarea produselor de asigurare de viață în R
Instrucțiuni pentru exercițiu
- Definește factorii de actualizare corespunzători fiecărei luni de plată, de la prima până la ultima. Fă acest lucru ridicând 1 plus
monthly_interestla puterea minus un vector de la 1 până lanumber_payments. - Creează variabila
payments, care să reflecte fluxul de plăți. Aceasta trebuie să fie un vector de unități cu lungimeanumber_payments. - În final, calculează rata lunară \(K\) împărțind valoarea creditului ipotecar de 125.000 la valoarea prezentă a fluxului de plăți.
Exercițiu interactiv practic
Încearcă acest exercițiu completând acest cod de exemplu.
# Define the discount factors
discount_factors <- (___) ^ - (___)
# Define the payment pattern
payments <- rep(___, ___)
# Calculate the monthly loan payment K
K <- ___ / ___(___ * ___)
K