Implement Binary Search In R Programming