以已知殖利率貼現債券現金流
在列出債券的現金流之後，現在可以依序計算各期現金流的現值，進而估計債券價值。請記住，債券的價值等於各期現金流現值的總和。
在這個練習中，你將為每期現金流計算適當的現值因子 pv_factor，以便進一步計算各期現金流的現值 pv。接著，你會將所有 pv 相加，得到債券的價值。
回想一下，這檔債券的殖利率為 6%，也就是折現率。你在前一題建立的資料框 cf 已經在你的工作環境中。
本練習屬於課程
在 R 中進行債券評價與分析
練習說明
- 在你的
cf資料框中建立新欄位t，用來標示收到現金流的年份。注意，對本題而言，年份等同於資料框列名（1、2、3等）。也就是說，你可以直接用rownames()指定t，並用as.numeric()確保t為數值。 - 在
cf物件中再建立新欄位pv_factor，用來存放各年的現值因子。回想一下，各年的現值因子計算為 1 除以 1 加上殖利率（此處為 6%，或0.06），再以時間變數（t）為次方。 - 在
cf中建立pv欄位，存放各年現金流的現值。現值的計算方式為現金流（cf）乘上該年的現值因子（pv_factor）。 - 最後，使用
sum()將pv的數值加總，得到債券的價值。
動手互動練習
試著完成這個範例程式碼，體驗一下這個練習。
# Add column t to cf
cf$t <- as.numeric(___(___))
# Calculate pv_factor
cf$pv_factor <- 1 / (1 + ___)^___
# Calculate pv
cf$pv <- ___ * ___
# Calculate the bond price
sum(___$___)