Interval Function In R