Using for loop in r