โค้ดทางเลือกสำหรับเวกเตอร์กระแสเงินสด
ในตัวอย่างก่อนหน้า อาจเขียนเวกเตอร์กระแสเงินสดด้วย cf <- c(3, 3, 3, 3, 3, 3, 3, 103)
อย่างไรก็ตาม วิธีนี้ค่อนข้างยุ่งยาก ทางเลือกที่ดีกว่าคือใช้คำสั่ง rep() แทน การพิมพ์ rep(x, y) จะทำซ้ำค่า x อัตโนมัติ y ครั้ง ตัวอย่างเช่น rep(1, 4) มีค่าเท่ากับ c(1, 1, 1, 1)
ในแบบฝึกหัดนี้ จะสร้างฟังก์ชันที่ยืดหยุ่นกว่าสำหรับคำนวณเวกเตอร์กระแสเงินสด โดยรับตัวแปรนำเข้า ได้แก่ r สำหรับอัตราคูปอง, p สำหรับมูลค่าที่ตราไว้ และ ttm สำหรับระยะเวลาจนครบกำหนด โดยจะใช้ประโยชน์จากคำสั่ง rep() ในการดำเนินการนี้
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
การประเมินมูลค่าและวิเคราะห์พันธบัตรด้วย R
คำแนะนำการฝึกหัด
- เขียนฟังก์ชันกระแสเงินสดทางเลือกโดยใช้
rep()และตัวแปรนำเข้าr,pและttmแล้วบันทึกฟังก์ชันใหม่นี้เป็นalt_cf - ใช้
alt_cfเพื่อสร้างเวกเตอร์กระแสเงินสดที่มีอัตราคูปอง (r) 3% (0.03), มูลค่าที่ตราไว้ (p) $100 และระยะเวลาจนครบกำหนด (ttm) 8 ปี
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
# Code cash flow function
alt_cf <- function(r, p, ttm) {
c(rep(p * r, ___ - 1), ___ * (1 + ___))
}
# Generate cf vector
alt_cf(r = ___, p = ___, ttm = ___)