# NOT RUN {
#control points
cx <- 1:4
cy <- c (-4, -1, 1, 4)
#cubic hermite spline
#(with function object, and default slopes)
f <- chs (cx, cy)
#plot the object
#(with control points)
plot (f, control.points=TRUE)
# }
Run the code above in your browser using DataLab