How to create a for loop in r