For loop in r data frame