For loop in r studio