시작하기무료로 시작하기

채권 가치 평가

1장에서 단계별 접근으로 채권 가치를 평가해 보았어요. 이번 연습 문제에서는 액면가 $100, 쿠폰 금리 3%, 만기 8년인 채권의 가치를 평가해 봅니다. 먼저 채권의 현금흐름을 정리하고, 이전 연습 문제에서 구한 Aaa 수익률을 사용해 각 현금흐름의 현재가치를 계산하세요.

aaa_yield 객체는 값 0.0341로 작업 공간에 미리 로드되어 있습니다.

이 연습은 강의의 일부입니다

R로 배우는 채권 가치 평가와 분석

강의 보기

연습 안내

  • 채권의 현금흐름을 담은 객체(cf)를 생성하세요.
  • data.frame()을 사용해 cf를 데이터 프레임으로 변환하고, 분석에 필요한 변수를 추가할 수 있도록 하세요.
  • seq() 명령으로 1년부터 8년까지를 나타내는 시간 지표(cf$t)를 추가하세요.
  • Moody's Aaa 수익률(aaa_yield)과 시간 지표(cf$t)를 바탕으로 PV 계수(cf$pv_factor)를 계산하세요.
  • 각 현금흐름의 현재가치(cf$pv)를 cf$cf와 PV 계수(cf$pv_factor)의 곱으로 계산하세요.
  • 마지막으로 각 현금흐름의 현재가치를 sum()으로 합해 채권 가격을 계산하세요.

실습형 인터랙티브 연습

이 예제를 이 샘플 코드를 완성하여 풀어보세요.

# Layout the bond's cash flows
cf <- c(___, ___, ___, ___, ___, ___, ___, ___)

# Convert to data.frame
cf <-

# Add time indicator
cf$t <- seq(___, ___, ___)

# Calculate PV factor
cf$pv_factor <- 1 / (1 + ___)^___

# Calculate PV
cf$pv <-

# Price bond
sum(___)
코드 편집 및 실행