Pair Function In R