Interp Function In R Return