Range Function In R