Nested for loop in r