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 completando este código de ejemplo.
# Define the discount factors
discount_factors <- (___) ^ - (___)
# Define the payment pattern
payments <- rep(___, ___)
# Calculate the monthly loan payment K
K <- ___ / ___(___ * ___)
K