Create make_spline.R