##
# Example usage
#Company pays a dividend of 3 currency units per share
#Investors require a return of 8%
example <- ddm(
DIV = 3, # Dividend Amount in currency units
RETURN = 0.08 # Required Return of the investor
)
print(example)
#Company pays a dividend of 0.8 currency units per share
#Investors require a return of 10%
#The dividend is expected to grow at a constant rate of 4%
example2 <- ddm(
DIV = 0.8, # Dividend Amount in currency units
RETURN = 0.10, # Required Return of the investor
G1 = 0.04 # Growth rate
)
print(example2)
#Company pays a dividend of 2 currency units per share
#Investors expect a return of 12%
#The dividend is projected to grow at 8% for the first 3 years
#Then at 4%
example3 <- ddm(
DIV = 2, # Dividend Amount in currency units
RETURN = 0.12, # Required Return of the investor
G1 = 0.08, # Growth rate
G2 = 0.04, # Growth rate after PER
PER = 3 # Growth rate change happens in Period 3
)
print(example3)
Run the code above in your browser using DataLab