Kodunuzu bir fonksiyona dönüştürün

R ile Tahvil Değerleme ve Analizi

Clifford Ang

Senior Vice President, Compass Lexecon

Tahvil değerleme fonksiyonu

Bu derste birçok tahvili değerleyeceğiz
Önceki bölümdeki adımlar tekrarlanacak
Hesaplamaları basitleştirmek için bondprc() fonksiyonunu oluşturacağız

Tahvil değerlemede adımlar

Bu girdileri genelleyin:
- Nominal değer için p
- Kupon oranı için r
- Vade sonuna süre için ttm
- Getiri için y
Koddaki bazı kısımları da daha genel yapıyoruz

Tahvil değerlemede adımlar

cf <- c(rep(p * r, ttm - 1), p * (1 + r))

rep(x, y) - x değerini y kez tekrarlar
x = p * r = kupon ödemesi
y = ttm - 1 = vade sonuna süre eksi bir yıl
p * (1 + r) = anapara + son kupon ödemesi

Tahvil değerlemede adımlar

cf <- data.frame(cf)

Değişken ekleyebilmek için veri çerçevesine dönüştürün (önceki bölümle aynı)

cf$t <- as.numeric(rownames(cf))

İskontoda kullanılacak zaman indeksini oluşturun
- cf vektörünün rownames() değeri 1, 2, 3, 4 … tahvilin ttm değerine kadardır
- Sayı olarak okunması için as.numeric() gerekir

Tahvil değerlemede adımlar

cf$pv_factor <- 1 / (1 + y)^cf$t

Bugünkü değer (PV) faktörünü hesaplayın

cf$pv <- cf$cf * cf$pv_factor

Her nakit akışının PV’sini hesaplayın

sum(cf$pv)

PV’leri toplayarak tahvil değerine ulaşın

Kodu sarmalayın

bondprc() fonksiyonunu oluşturun
Girdiler: p, r, ttm ve y

bondprc <- function(p, r, ttm, y){
   cf <- c(rep(p * r, ttm - 1), p * (1 + r))
   cf <- data.frame(cf)
   cf$t <- as.numeric(rownames(cf))
   cf$pv_factor <- 1 / (1 + y)^cf$t
   cf$pv <- cf$cf * cf$pv_factor
   sum(cf$pv)
}

Hadi pratik yapalım!

R ile Tahvil Değerleme ve Analizi

Preparing Video For Download...