How to write loop in r