Ocenění při předpokladu 2 fází dividend
Dividendový diskontní model lze použít i tehdy, když dividendy firmy nejsou každý rok stejné. Firma může mít například úvodní období s vyššími dividendami v době růstu (1. fáze), ale jakmile dosáhne zralosti, dividendy sníží (2. fáze). Při ocenění tohoto typu aktiva je klíčové rozložit peněžní toky pro každý rok a diskontovat je zpět na současnou hodnotu. Po rozložení peněžních toků ale zjistíš, že část výpočtů lze zjednodušit pomocí hotových vzorců. Konkrétně pro 2. fázi, kdy se nižší dividenda vyplácí donekonečna, můžeš použít vzorec pro perpetuitu s růstem, který jsi probral/a dříve.
V 1. fázi probíhají vyšší dividendové platby po omezenou dobu. Peněžní toky pro první roky rozložíš a každý z těchto ročních toků diskontovaně převedeš na současnou hodnotu. Ve 2. fázi pak pomocí vzorce pro perpetuitu s růstem oceníš nižší dividendy vyplácené do nekonečna.
V tomto cvičení předpokládej, že preferovaná akcie vyplácí v 1. až 5. roce vyšší dividendovou sazbu 10 %, tj. 2,50 USD ročně (high_div). Příslušná diskontní sazba (kp) pro roky 1 až 5 je 10 %. Současná hodnota dividend od 6. roku dále, kterou jsi vypočítal/a v předchozím cvičení, je uložena v paměti jako pref_value_low. Jaká je hodnota této preferované akcie?
Poznámka: Protože přidáváme hodnotu dalších pěti let peněžních toků, bude hodnota preferované akcie v tomto příkladu vyšší než hodnota 7,76 USD z předchozího cvičení.
Toto cvičení je součástí kurzu
Oceňování akcií v R
Pokyny k cvičení
- Vypočítej preferovanou dividendu v 1. fázi.
- Přidej proměnnou pro počet diskontních období.
- Vypočítej diskontní faktory.
- Vypočítej současnou hodnotu dividend pro roky 1 až 5.
- Vypočítej současnou hodnotu všech peněžních toků z 1. fáze.
- Přičti hodnotu z 1. fáze k hodnotě 2. fáze (období nízkých dividend).
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
# Preferred dividend in Years 1 to 5
high_div <- ___
# Create vector of Year 1-5 dividends
pref_cf <- rep(high_div, 5)
# Convert to data frame
pref_df <- data.frame(pref_cf)
# Add discount periods
pref_df$periods <- ___
# Calculate discount factors
pref_df$pv_factor <- ___
# Calculate PV of dividends
pref_df$pv_cf <- ___
# Calculate value during high stage
pref_value_high <- ___
# Calculate value of the preferred stock
___