# load data set
data(govbonds)
# define countries, for which the estimation
# of the zero-coupon yield curves will be carried out
group <- c("GERMANY", "AUSTRIA")
# set maturtiy range
matrange <- c(0, 19)
# perform estimation
x <- estim_cs(govbonds, group, matrange)
# print the obtained parameters of the estimation
print(x)
# goodness of fit measures
summary(x)
# plot the zero-coupon yield curve for each country
plot(x,errors="none")
# plot all zero-coupon yield curves together
plot(x,multiple=TRUE,errors="none")
# spread curve splot
plot(x,ctype="spread",errors="none")
# price error plot for all countries
plot(x,ctype="none")
Run the code above in your browser using DataLab