Restricted cubic splines in R