https://github.com/cran/ftsa
Tip revision: bdacd962e07983b325d3672c4048f4337223e4de authored by Han Lin Shang on 09 December 2010, 00:00:00 UTC
version 2.4
version 2.4
Tip revision: bdacd96
spl.coef.conv.r
spl.coef.conv = function (z)
{
n <- length(z$x)
h <- z$x[2:n] - z$x[1:(n - 1)]
y0 <- z$y[1:(n - 1)]
y1 <- z$y[2:n]
b0 <- z$b[1:(n - 1)]
b1 <- z$b[2:n]
cc <- -(3 * (y0 - y1) + (2 * b0 + b1) * h)/h^2
c1 <- (3 * (y0[n - 1] - y1[n - 1]) + (b0[n - 1] + 2 * b1[n -
1]) * h[n - 1])/h[n - 1]^2
dd <- (2 * (y0 - y1)/h + b0 + b1)/h^2
d1 <- dd[n - 1]
z$c <- c(cc, c1)
z$d <- c(dd, d1)
z
}