¿En cualquier lugar y en cualquier momento?
Al revisar sus hábitos de gasto, Cynthia se pregunta cuánto dinero tendría si en lugar de gastar en descargas y entradas de conciertos lo ingresara en una cuenta bancaria. Para ello, vas a calcular el valor de los flujos de caja en un momento futuro usando una función de descuento adecuada.
Arriba puedes ver el patrón de gasto de Cynthia. El vector cash_flows, que definiste en el primer ejercicio, ya está precargado en tu espacio de trabajo. El tipo de interés sigue siendo del 2%.
Este ejercicio forma parte del curso
Valoración de productos de seguros de vida en R
Instrucciones del ejercicio
- Define la función
discount()que calcule el valor en el instante \(s\) de 1 EUR pagado en el instante \(t\). - Usa
discount()para calcular el valor actual decash_flowsen los tiempos de 0 a 5. Esto debe coincidir con tu resultado anterior: 444,93 EUR. - Imprime el valor del vector de flujos de caja cuando Cynthia cumpla 18 años dentro de 6 años.
- Calcula el valor acumulado del vector de flujos de caja en el instante 6 de otra manera. Esta vez convierte el
present_valueen el instante 0 al valor en el instante 6.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# Define the discount function v
discount <- function(s, t, i = 0.02) {
(1 + ___) ^ - (___ - ___)
}
# Calculate the present value
present_value <- sum(cash_flows * discount(___, ___))
present_value
# Calculate the value at time 6
sum(cash_flows * discount(___, ___))
# Calculate the value at time 6, starting from present_value
present_value * discount(___, ___)