R में बॉन्ड वैल्यूएशन और विश्लेषण
Clifford Ang
Senior Vice President, Compass Lexecon
uniroot() फंक्शन से इस प्रक्रिया को ऑटोमेट कर सकते हैंytm <- function(cf) {
uniroot(bval, c(0, 1), cf = cf)$root
}
uniroot() का उपयोग करके ytm() फंक्शन बनाएँcf) लेता है और संशोधित बॉन्ड वैल्यूएशन फंक्शन (bval) उपयोग करता हैc(0,1) खोज इंटरवल को 0% से 100% यील्ड तक सीमित करता हैcf <- c(-92.64, 5, 5, 5, 5, 5, 5, 5, 5, 5, 105)
bval <- function(i, cf, t = seq(along = cf)) sum(cf / (1 + i)^t)
cf) के साथ काम करने वाला बॉन्ड वैल्यूएशन फंक्शन bval() बनाएँbondprc() फंक्शन जैसा ही लॉजिकt) बनाएँi) से कैश फ्लो को डिस्काउंट करेंR में बॉन्ड वैल्यूएशन और विश्लेषण