regspline.r