Create B-spline basis.R