Cuotas mensuales de un préstamo hipotecario
Los padres de Cynthia reciben un préstamo de 125.000 EUR a cambio de pagos mensuales fijos \(K\) durante los próximos 20 años, como se muestra en el gráfico de abajo.
Usando las variables number_payments y monthly_interest definidas en el ejercicio anterior, que ya están precargadas, te toca a ti determinar el valor de \(K\) según el principio de equivalencia actuarial.
Este ejercicio forma parte del curso
Valoración de productos de seguros de vida en R
Instrucciones del ejercicio
- Define los factores de descuento correspondientes desde el primer mes de pago hasta el último. Hazlo elevando 1 más
monthly_interesta la potencia menos un vector desde 1 hastanumber_payments. - Crea la variable
paymentsque refleje el patrón de pagos. Debe ser un vector de unos con longitudnumber_payments. - Por último, calcula la cuota mensual \(K\) dividiendo el importe de la hipoteca, 125.000, entre el valor actual del patrón de pagos.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# Define the discount factors
discount_factors <- (___) ^ - (___)
# Define the payment pattern
payments <- rep(___, ___)
# Calculate the monthly loan payment K
K <- ___ / ___(___ * ___)
K