cics_explicit(
uu = c(1, 2.2, 3, 3.8, 7),
CERN$y[1:5],
d=c(0,-2),
xlab="X axis",
ylab="Y axis"
)
uu <- c(0, 1, 4, 6);
yy <- c(4, 5, 2, 1.8);
sp <- cics_explicit(uu, yy, c(1,0))
sp$spline_polynomials
### <~~>
### Spline components' coefficients
explicit_spline(sp$B, sp$gamma)
sp$spline_coeffs == .Last.value
Run the code above in your browser using DataLab