How to write a loop in r