Replace Array Subset Function In R