Ascending Function In R