double code snippets in r

loop through all items in vector test and double them in r