Wycena przy założeniu 2 etapów dywidend
Model zdyskontowanych dywidend można stosować również wtedy, gdy dywidendy spółki nie są jednakowe w każdym roku. Na przykład spółka może wypłacać wyższe dywidendy w początkowym okresie wzrostu (etap 1), a gdy dojrzeje, obniżyć ich poziom (etap 2). Aby wycenić tego rodzaju aktywa, należy rozplanować przepływy pieniężne na poszczególne lata i zdyskontować je do wartości bieżącej. Po rozpisaniu przepływów pieniężnych można jednak zauważyć, że część obliczeń da się uprościć za pomocą gotowych wzorów. W szczególności w etapie 2, gdzie niższa dywidenda jest wypłacana w nieskończoność, możesz użyć poznanego wcześniej wzoru na rentę wieczystą ze wzrostem.
W etapie 1 wyższe płatności dywidendowe występują przez ograniczony czas. Możemy rozpisać przepływy pieniężne na pierwsze lata i zdyskontować każdy z nich do wartości bieżącej. W etapie 2 używamy wzoru na rentę wieczystą ze wzrostem, aby wycenić niższe dywidendy wypłacane bezterminowo.
W tym ćwiczeniu przyjmij, że akcja uprzywilejowana wypłaca wyższą stopę dywidendy wynoszącą 10% od Roku 1 do 5, czyli 2,50 USD rocznie (high_div). Właściwa stopa dyskontowa (kp) dla lat 1–5 wynosi 10%. Wartość bieżąca dywidend od Roku 6 wzwyż, obliczona w poprzednim ćwiczeniu, jest zapisana w pamięci jako pref_value_low. Jaka jest wartość tej akcji uprzywilejowanej?
Uwaga: ponieważ dodajemy wartość dodatkowych pięciu lat przepływów pieniężnych, wartość akcji uprzywilejowanej w tym przykładzie będzie wyższa niż 7,76 USD obliczone w poprzednim ćwiczeniu.
To ćwiczenie jest częścią kursu
Wycena akcji w R
Instrukcje do ćwiczenia
- Oblicz dywidendę uprzywilejowaną w etapie 1.
- Dodaj zmienną określającą liczbę okresów dyskontowania.
- Oblicz czynniki dyskontowe.
- Oblicz wartość bieżącą dywidend dla lat 1–5.
- Oblicz wartość bieżącą wszystkich przepływów pieniężnych z etapu 1.
- Dodaj wartość z etapu 1 do wartości z etapu 2 (okresu niskich dywidend).
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
# 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
___