How to use loop in r