การประเมินมูลค่าพันธบัตร
การประเมินมูลค่าและวิเคราะห์พันธบัตรด้วย R
Clifford Ang
Senior Vice President, Compass Lexecon
การประเมินมูลค่าพันธบัตร
- อัตราดอกเบี้ยคูปองคงที่รายปี
- วันครบกำหนดไถ่ถอนคงที่
- ไม่มีออปชัน
มูลค่าของสินทรัพย์
- มูลค่าของสินทรัพย์ = มูลค่าปัจจุบันของกระแสเงินสดที่คาดในอนาคต
- กระแสเงินสด: คิดลดด้วยอัตราคิดลดที่ปรับตามความเสี่ยงที่เหมาะสม
$$
$$V = \sum_{t=1}^{T} \frac{CF_t}{(1+y)^t}$$
$CF$: กระแสเงินสด
$y$: อัตราคิดลด
กระแสเงินสดของพันธบัตร
- ก่อนครบกำหนด นักลงทุนจะได้รับการจ่ายคูปอง
$$\sum_{t=1}^{T-1} \frac{CF_t}{(1+y)^t}$$
- NB: sum up to $T-1$
- เมื่อครบกำหนด นักลงทุนจะได้รับการจ่ายคูปองงวดสุดท้ายและมูลค่าพาร์
$$V = \sum_{t=1}^{T-1} \frac{CF_t}{(1+y)^t} + \frac{C_T + P}{(1+y)^T}$$
การสร้างเวกเตอร์กระแสเงินสด
$$
$$V = \sum_{t=1}^{T} \frac{CF_t}{(1+y)^t} + \frac{C_T + P}{(1+y)^T}$$
$$
cf <- c(c1, c2, c3, c4, c5, ...)
การแปลงเป็น dataframe
- เพื่อเพิ่มคอลัมน์เพิ่มเติมได้ ต้องแปลงเวกเตอร์กระแสเงินสดให้เป็น data frame
- ใช้คำสั่ง
data.frame()cf <- data.frame(cf)
การสร้างดัชนีเวลา
- กระแสเงินสดแต่ละรายการเกิดขึ้นในช่วงเวลาที่กำหนด
- หน่วยของช่วงเวลาจะเป็นปี
- สร้างตัวแปรสำหรับดัชนีเวลา
cf$t <- c(1, 2, 3, 4, 5, ...)
การคำนวณตัวประกอบ PV
- การคิดลดกระแสเงินสดต้องใช้ "อัตราคิดลด"
- สำหรับพันธบัตร อัตราคิดลดเรียกว่า "yield"
- สร้างตัวประกอบมูลค่าปัจจุบันสำหรับการคิดลด
cf$pv_factor <- 1 / (1 + y)^cf$t
pv_factor <- 1 / (1 + .10)^2
pv_factor
0.8264463
มูลค่าปัจจุบันของกระแสเงินสด
- คำนวณมูลค่าปัจจุบันของกระแสเงินสดแต่ละรายการ
cf$pv <- cf$cf * cf$pv_factor
- ผลรวมของมูลค่าปัจจุบันของกระแสเงินสดทั้งหมดของพันธบัตรเท่ากับมูลค่าของพันธบัตร
sum(cf$pv)
มาฝึกกันเถอะ!
การประเมินมูลค่าและวิเคราะห์พันธบัตรด้วย R
