Added R Code

Cubic Spline