Vector code to generate numbers in r