1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
\name{FittedBondCurve}
\alias{FittedBondCurve}
\alias{FittedBondCurve.default}
\alias{plot.FittedBondCurve}
\title{Returns the discount curve (with zero rates and forwards) given set of bonds}
\description{
\code{FittedBondCurve} fits a term structure to a set of bonds
using three different fitting methodologies. For more detail,
see QuantLib/Example/FittedBondCurve.
}
\usage{
FittedBondCurve(curveparams, lengths, coupons, marketQuotes, dateparams)
}
\arguments{
\item{curveparams}{curve parameters
\tabular{ll}{
\code{method} \tab a string, fitting methods: "ExponentialSplinesFitting", \cr
\code{} \tab "SimplePolynomialFitting", "NelsonSiegelFitting"\cr
\code{origDate} \tab a Date, starting date of the curve \cr
}
}
\item{lengths}{an numeric vector, length of the bonds in year}
\item{coupons}{a numeric vector, coupon rate of the bonds}
\item{marketQuotes}{a numeric vector, market price of the bonds}
\item{dateparams}{(Optional) a named list, QuantLib's date parameters of the bond.
\tabular{ll}{
\code{settlementDays} \tab (Optional) a double, settlement days. \cr
\code{} \tab Default value is 1.\cr
\code{dayCounter} \tab (Optional) a number or string, \cr
\code{} \tab day counter convention.\cr
\code{} \tab See \link{Enum}. Default value is 'Thirty360' \cr
\code{period} \tab (Optional) a number or string, \cr
\code{} \tab interest compounding interval. See \link{Enum}. \cr
\code{} \tab Default value is 'Semiannual'.\cr
\code{businessDayConvention} \tab (Optional) a number or string, \cr
\code{} \tab business day convention. \cr
\tab See \link{Enum}. Default value is 'Following'. \cr
}
See example below.
}
}
\value{
\code{table}, a three columns "date - zeroRate - discount" data frame
}
\details{
Please see any decent Finance textbook for background reading, and the
\code{QuantLib} documentation for details on the \code{QuantLib}
implementation.
}
\references{
\url{https://www.quantlib.org/} for details on \code{QuantLib}.
}
\author{Khanh Nguyen \email{knguyen@cs.umb.edu} for the inplementation; Dirk Eddelbuettel \email{edd@debian.org} for the \R interface;
the QuantLib Group for \code{QuantLib}
}
\examples{
# commented-out as it runs longer than CRAN likes
\dontrun{
lengths <- c(2,4,6,8,10,12,14,16,18,20,22,24,26,28,30)
coupons <- c( 0.0200, 0.0225, 0.0250, 0.0275, 0.0300,
0.0325, 0.0350, 0.0375, 0.0400, 0.0425,
0.0450, 0.0475, 0.0500, 0.0525, 0.0550 )
marketQuotes <- rep(100, length(lengths))
dateparams <- list(settlementDays=0, period="Annual",
dayCounter="ActualActual",
businessDayConvention ="Unadjusted")
curveparams <- list(method="ExponentialSplinesFitting",
origDate = Sys.Date())
curve <- FittedBondCurve(curveparams, lengths, coupons, marketQuotes, dateparams)
z <- zoo::zoo(curve$table$zeroRates, order.by=curve$table$date)
plot(z)
}
}
|
