How to ceate a loop in r