How to do a while loop in r