듀레이션 계산
Chapter Three에서 근사 듀레이션 공식을 사용하는 법을 배우셨죠. 복습을 위해, 근사 듀레이션 공식은 다음과 같습니다:
$$(P(down) - P(up)) / (2 * P * \Delta y)$$
여기서 $P$는 오늘의 채권 가격, $P(up)$은 수익률이 상승할 때의 채권 가격, $P(down)\(은 수익률이 하락할 때의 채권 가격, \)\Delta y$는 예상 수익률 변화입니다.
이번 연습에서는 듀레이션을 계산해 보겠습니다. 구체적으로 bondprc() 함수를 사용해 px_up과 px_down을 계산합니다.
이전 연습에서 사용한 객체 px와 aaa_yield는 워크스페이스에 미리 로드되어 있습니다. 이번 연습에서는 예상 수익률 변화가 1%p 상승이라고 가정하세요. 이전과 같이 쿠폰 이자율은 3%(0.03), 만기까지의 기간은 8년입니다.
이 연습은 강의의 일부입니다
R로 배우는 채권 가치 평가와 분석
연습 안내
- 수익률이 1%p 상승할 때의 채권 가격을
bondprc()로 계산하고px_up에 저장하세요. - 수익률이 1%p 하락할 때의 채권 가격을
bondprc()로 계산하고px_down에 저장하세요. - 위의 공식을 사용해
px,px_up,px_down으로duration을 계산하세요. duration을 바탕으로 가격에 대한 듀레이션의 퍼센트 효과(duration_pct_change)를 계산하고 확인하세요.- 듀레이션을 바탕으로 가격에 대한 달러 효과(
duration_dollar_change)를 계산하고 확인하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# Calculate bond price when yield increases
px_up <- bondprc(p = ___, r = ___, ttm = ___, y = ___)
# Calculate bond price when yield decreases
px_down <-
# Calculate duration
duration <- (___ - ___) / (2 * ___* ___)
# Calculate percentage effect of duration on price
duration_pct_change <-
duration_pct_change
# Calculate dollar effect of duration on price
duration_dollar_change <-
duration_dollar_change