Chiết khấu dòng tiền trái phiếu với lợi suất đã biết
Sau khi liệt kê các dòng tiền của trái phiếu, bạn sẽ lần lượt tính giá trị hiện tại của từng dòng tiền và định giá trái phiếu. Nhớ rằng giá trị của trái phiếu bằng tổng giá trị hiện tại của các dòng tiền.
Trong bài tập này, bạn sẽ tính hệ số giá trị hiện tại phù hợp, pv_factor, cho từng dòng tiền để từ đó tính giá trị hiện tại pv của mỗi dòng tiền. Sau đó, bạn sẽ cộng các giá trị pv để tìm giá trị của trái phiếu.
Lưu ý: trái phiếu này có lợi suất 6%, đóng vai trò là lãi suất chiết khấu. Data frame bạn đã tạo ở bài trước, cf, đang có sẵn trong workspace của bạn.
Bài tập này là một phần của khóa học
Định giá và Phân tích Trái phiếu bằng R
Hướng dẫn bài tập
- Tạo một cột mới,
t, trong data framecfđể chỉ năm nhận dòng tiền. Với mục đích ở đây, năm tương ứng với tên các hàng trong data frame (1,2,3, …). Điều này có nghĩa bạn có thể dùngrownames()để gán chot. Dùngas.numeric()để đảm bảo các giá trị củatlà số. - Tạo thêm một cột mới,
pv_factor, trong đối tượngcfđể lưu hệ số giá trị hiện tại của từng năm. Nhớ rằng hệ số này được tính bằng 1 chia cho 1 + lãi suất lợi suất (trường hợp này là 6%, hay0.06) lũy thừa theo biến thời gian (t). - Tạo cột
pvtrongcfđể lưu giá trị hiện tại của dòng tiền mỗi năm. Giá trị hiện tại được tính bằng dòng tiền (cf) nhân với hệ số giá trị hiện tại của năm đó (pv_factor). - Cuối cùng, dùng
sum()để cộng các giá trị trongpvnhằm tìm ra giá trị của trái phiếu.
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
# 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(___$___)