2단계 배당을 가정한 가치평가
배당이 매년 같지 않더라도 배당할인모형을 사용할 수 있어요. 예를 들어, 기업이 성장하는 초기에는 배당이 더 높다가(1단계), 성숙기에 접어들면 배당을 낮출 수 있어요(2단계). 이런 자산을 평가할 때는, 매년의 현금흐름을 어떻게 받을지 배열해 보고 그 현금흐름을 현재가치로 할인하는 방식으로 생각하면 됩니다. 다만 현금흐름을 배열해 보면 일부 계산은 단순화된 공식으로 처리할 수 있다는 점을 알 수 있어요. 특히 위 사례처럼 2단계에서 낮은 배당이 영구히 지급되는 경우에는 앞에서 배운 성장 있는 영구지급식(Perpetuity with Growth) 공식을 사용할 수 있어요.
1단계에서는 높은 배당이 유한 기간 동안 발생합니다. 처음 몇 년의 현금흐름을 배열한 뒤, 각 연도의 현금흐름을 현재가치로 할인해요. 2단계에서는 낮은 배당이 영구히 이어지므로 성장 있는 영구지급식 공식을 사용해 가치를 구합니다.
이번 연습에서는 우선주가 1년 차부터 5년 차까지 연 10%의 높은 배당률 또는 연 $2.50(high_div)을 지급한다고 가정해요. 1~5년 차에 적용되는 관련 할인율(kp)은 10%예요. 6년 차 이후 배당의 현재가치는 이전 연습에서 계산해 pref_value_low로 메모리에 저장돼 있어요. 이 우선주의 가치는 얼마인가요?
참고: 추가로 5년치 현금흐름 가치를 더하므로, 이번 예시의 우선주 가치는 이전 연습의 $7.76보다 높아집니다.
이 연습은 강의의 일부입니다
R로 하는 주식 가치평가
연습 안내
- 1단계의 우선배당금을 계산하세요.
- 할인 기간 수를 위한 변수를 추가하세요.
- 할인계수를 계산하세요.
- 1~5년 차 배당의 현재가치를 계산하세요.
- 1단계 모든 현금흐름의 현재가치를 계산하세요.
- 1단계의 가치를 2단계(저배당 기간)의 가치와 합산하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# 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
___