How to create a loop in r