計算債券的近似存續期間
一個實用的存續期間近似式稱為「近似存續期間（approximate duration）」，其公式為 $$(P(down) - P(up)) / (2 * P * \Delta y)$$
其中，\(P\) 為債券價格，\(P(down)\) 為殖利率下降時的債券價格，\(P(up)\) 為殖利率上升時的債券價格，\(\Delta y\) 為預期的殖利率變動幅度。
完整的存續期間公式更為複雜。若你有興趣，可以參考我書中「Fixed Income」章節的相關說明。
在本練習中，你將計算一檔債券的近似存續期間。該債券的票面金額為 $100，票面利率 10%，到期年數 20 年，到期殖利率 10%，且預期殖利率變動為 1%。請使用你熟悉的 bondprc() 函式來完成計算，該函式已預先載入至工作空間。
本練習屬於課程
在 R 中進行債券評價與分析
練習說明
- 使用
bondprc()以 10% 殖利率計算今日債券價格。將結果存為px，並檢視px。 - 再次呼叫
bondprc()，在殖利率上升 1% 的情況下計算債券價格（px_up）。 - 第三次呼叫
bondprc()，在殖利率下降 1% 的情況下計算債券價格（px_down）。 - 使用三個物件（
px、px_up、px_down），在假設殖利率變動 1% 下計算近似存續期間。
動手互動練習
試著完成這個範例程式碼，體驗一下這個練習。
# Calculate bond price today
px <- bondprc(p = ___, r = ___, ttm = ___, y = ___)
px
# Calculate bond price if yields increase by 1%
px_up <-
px_up
# Calculate bond price if yields decrease by 1%
px_down <-
px_down
# Calculate approximate duration
duration <- (___ - ___) / (___ * ___ * ___)
duration