Mengestimasi imbal hasil obligasi
Penilaian dan Analisis Obligasi di R
Clifford Ang
Senior Vice President, Compass Lexecon
Mencari yield dengan coba-coba
- Untuk obligasi yang diperdagangkan, kita bisa mengimplikasikan yield
- Jika Anda tahu harga dan arus kas obligasi, Anda bisa membuat “tebakan” terhadap yield
- Yield “benar” menyamakan harga obligasi dengan PV arus kas obligasi
Mengiterasi berbagai tebakan
- Misal obligasi nilai pari $100, kupon 5%, jatuh tempo 10 tahun, harga $92,64
- Tebakan 1: 5% → Harga $100 (terlalu tinggi)
- Tebakan 2: 7% → Harga $85,95 (terlalu rendah)
- Tebakan 3: 6% → Harga $92,64 (benar)
Mengotomatiskan proses
- Metode coba-coba tidak efisien
- Kita bisa gunakan fungsi
uniroot()di R untuk mengotomatiskan proses
Buat fungsi dengan uniroot()
ytm <- function(cf) {
uniroot(bval, c(0, 1), cf = cf)$root
}
- Buat fungsi
ytm()menggunakanuniroot() - Fungsi menerima vektor arus kas terubah (
cf) dan memakai fungsi valuasi obligasi terubah (bval) c(0,1)membatasi pencarian yield antara 0% dan 100%
Vektor arus kas terubah
cf <- c(-92.64, 5, 5, 5, 5, 5, 5, 5, 5, 5, 105)
- Elemen pertama adalah harga obligasi ditulis negatif
- Elemen berikutnya adalah arus kas obligasi: kupon plus nilai pari
- Obligasi yang sama: Harga -$\$92.64$, nilai pari $\$100$, kupon 5%, jatuh tempo 10 tahun
Fungsi valuasi obligasi terubah
bval <- function(i, cf, t = seq(along = cf)) sum(cf / (1 + i)^t)
- Buat fungsi valuasi obligasi
bval()yang memakai vektor arus kas terubah (cf) - Logika sama seperti fungsi
bondprc() - Buat indikator waktu (
t) - Diskontokan arus kas dengan suku bunga (
i)
Ayo berlatih!
Penilaian dan Analisis Obligasi di R
