terms <- c(1, 11, 26, 27, 28)
rates <- c(0.0719, 0.056, 0.0674, 0.0687, 0.07)
curve <- spotratecurve(rates, terms, "discrete", "actual/365", "actual")
interpolation(curve) <- interp_nelsonsiegel(
0.1229, -0.0606, 0.1004, 1.9174
)
interpolation_error(curve)
Run the code above in your browser using DataLab