Měsíční splátky hypotečního úvěru
Rodiče Cynthie obdrží úvěr ve výši 125 000 EUR výměnou za pevné měsíční splátky \(K\) po dobu příštích 20 let, jak je znázorněno v grafu níže.
S využitím proměnných number_payments a monthly_interest definovaných v předchozím cvičení, které jsou předem načteny, urči hodnotu \(K\) na základě principu pojistně-matematické ekvivalence.
Toto cvičení je součástí kurzu
Oceňování produktů životního pojištění v R
Pokyny k cvičení
- Definuj diskontní faktory odpovídající prvnímu měsíci platby až po poslední měsíc platby. Udělej to tak, že umocníš 1 plus
monthly_interestna záporný vektor od 1 donumber_payments. - Vytvoř proměnnou
payments, která zachycuje platební vzor. Má to být vektor jedniček o délcenumber_payments. - Nakonec vypočítej měsíční splátku \(K\) vydělením výše hypotéky 125 000 současnou hodnotou platebního vzoru.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
# Define the discount factors
discount_factors <- (___) ^ - (___)
# Define the payment pattern
payments <- rep(___, ___)
# Calculate the monthly loan payment K
K <- ___ / ___(___ * ___)
K