Update interp1.R