Slice Function In R