В чем причина ошибки при использовании пакета ycinterextra R?

Question

Я пытаюсь интерполировать кривую доходности, используя пакет ycinterextra R.

a <- c(1,3,5)
b <- c(1,2,3,4,5)
c <- c(0.05, 0.06, 0.07)
yc <- ycinter(yM = c, matsin = a, matsout = b, method = "HCSPL", typeres = 
"rates")

Запуск функции ycinter возвращает:

Ошибка в if (Sw_down! = Sw_up) {: пропущенное значение там, где необходимо TRUE / FALSE

Как решить эту проблему?

Answer 1

Алгоритм для этой функции предполагает, что вектор matsin является диапазоном целочисленных значений.Поэтому вам нужно изменить векторы matsin и matsout следующим образом:

library(ycinterextra)

a <- 1:3
b <- seq(1,3,by=0.5)
c <- c(0.05, 0.06, 0.07)
yc <- ycinter(yM = c, matsin = a, matsout = b, method = "HCSPL", typeres =  "rates")

ycsummary(yc)
# Residuals: 
#   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
# 0       0       0       0       0       0 
# 
# Coefficients: 
#   NA 
# 
# Total sum of squares: 
#   2e-04 
# with 2 degrees of freedom 
# 
# Explained sum of squares: 
#   2e-04 
# with 0 degrees of freedom 
# 
# Residual sum of squares: 
#   0 
# with 2 degrees of freedom 
# 
# Multiple R-squared  * Adjusted R-squared 
# 1 * 1 
# 
# F-statistic: Inf on 2 and 0 degrees of freedom, p-value: NaN