I have the following vector:
tmp3 <- c(\"1500 2\", \"1500 1\", \"1510 2\", \"1510 1\", \"1520 2\", \"1520 1\", \"1530 2\", \"1530 1\", \"1540 2\", \"1540
Another option is scan(). To get the second value, we can use a logical subset.
scan()
scan(text = tmp3)[c(FALSE, TRUE)] # [1] 2 1 2 1 2 1 2 1 2 1