ComenzarEmpieza gratis

Varios argumentos (2)

Pensemos en un ejemplo más complejo. ¿Recuerdas el valor presente del curso Introduction to R for Finance? Si no, puedes repasar el vídeo aquí. La idea es que quieres descontar el dinero que recibirás en el futuro a un tipo de interés específico para representar el valor de ese dinero en términos de hoy. Para ello se usa la siguiente fórmula general:

present_value <- cash_flow * (1 + i / 100) ^ -year

¿No estaría bien tener una función que hiciera este cálculo por ti? Quizá algo de la forma:

present_value <- pv(cash_flow, i, year)

Esta función debería funcionar si le pasas valores numéricos como pv(1500, 5, 2) y también si le pasas vectores de la misma longitud para calcular de una vez todo un vector de valores presentes.

La función percent_to_decimal() está disponible para que la uses.

Este ejercicio forma parte del curso

R intermedio para finanzas

Ver curso

Instrucciones del ejercicio

  • Rellena los espacios en blanco de la función para que haga lo siguiente:
    • Requerir los argumentos: cash_flow, i, year
    • Crear el multiplicador de descuento: (1 + i / 100). Usa la función percent_to_decimal() para convertir i a decimal.
    • Realizar el cálculo del valor presente. No lo guardes en una variable. Al ser la última línea ejecutada, se devolverá automáticamente.
  • Calcula el valor presente de 1200 $, con un tipo de interés del 7 %, a recibir dentro de 3 años.

Ejercicio interactivo práctico

Prueba este ejercicio y completa el código de muestra.

# Present value function
pv <- function(___, ___, ___) {
    
    # Discount multiplier
    mult <- 1 + ___(i)
    
    # Present value calculation
    ___ * ___ ^ -___
}

# Calculate a present value
___
Editar y ejecutar código