Construye una función personalizada que pueda evaluar una acción en base al modelo de crecimiento de dividendos de Gordon.

\[ P_0=D_0(1+g) /(r-g) \] Donde:

\(P_0\) es el precio de la acción

\(D_0\) es el dividendo anterior

\(g\) es la tasa de crecimiento de dividendos a perpetuidad

r es la tasa de retorno del equity requerida por el mercado, su costo de capital

\(D_0, g\) y \(r\) son datos que nos otorgará el usuario y \(P_0\) el precio que regresará la función. \(D_0\) será un valor requerido, mientras que los otros dos argumentos serán opcionales y tendrán como valores default \(g=0.05\) y \(r=0.20\)

Construyendo la función

Definiendo la función

Dividendos_Gordom = function(d0, g = 0.05, r = 0.20){
  dividendo_anterior = d0
  tasa_crecimiento = g
  tasa_retorno = r
  precio_accion = dividendo_anterior * (1 + tasa_crecimiento)/(tasa_retorno - tasa_crecimiento)
  return(precio_accion)
}

Probando la función

p0 = Dividendos_Gordom(100,0.045,0.25)
p0

## [1] 509.7561

paste("El valor de Dividendos de Gordon P0 es:",p0)

## [1] "El valor de Dividendos de Gordon P0 es: 509.756097560976"

Probando valores por default de la función

p1 = Dividendos_Gordom(100)
p1

## [1] 700

paste("El valor de Dividendos de Gordon P0 es:",p1)

## [1] "El valor de Dividendos de Gordon P0 es: 700"