For loop in r with data frame